VB Forum / COM / October 2004

anyone know how to automate WORD mail merge with VB6, without Access
prompting me for a password?

i have a secure access 97 database (i.e. it has a password)
i have created a Word template that i intend to mail merge with the above
database

i have the following code

   sPath = App.Path & "\TestTemplate.dot"

   Set objWordApp = CreateObject("word.application")

   objWordApp.Visible = True

   Set objWordDoc = objWordApp.Documents.Add(sPath)

   objWordDoc.MailMerge.MainDocumentType = wdFormLetters
   objWordDoc.MailMerge.Destination = wdSendToNewDocument
   objWordDoc.MailMerge.OpenDataSource name:=App.Path & "\myDatabase.mdb",
PasswordDocument:="myPassword", connection:="QUERY myReportQuery"

   objWordDoc.MailMerge.Execute

   objWordDoc.Close False