Visual Basic - Combinar correspondencia vb -> access con pass

Hola mi intencion es combinar correspondencia desde vb a un access esto ya lo he conseguido pero ahora me dicen que quieren poner una contraseña al la BD, este me esta originando problemas con el codigo que ya tenia, este codigo es el siguiente:

Dim AppWord As Word.Application
Dim DocWord As Word.Document
Dim MyAppID, ReturnValue
Set DocWord = New Word.Document
Set AppWord = New Word.Application
Set DocWord = AppWord.Documents.Open(App.Path & "Reactor_combinar_correspondencia.dot")
' C:MAIL.DOC es el documento Word
AppWord.Visible = True

DocWord.MailMerge.OpenDataSource Name:=App.Path & "master.mdb", ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:="TABLE Import_Oferta_Word", SQLStatement:="SELECT * FROM [Import_Oferta_Word] where Usuario like '" & mNombreUsuario & "'", SQLStatement1:=""

With DocWord.MailMerge
.Destination = wdSendToNewDocument ' o wdSendToPrinter si lo quieres directo a impresora
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With

SABEIS DONDE TENGO QUE PONER LA CONTRASEÑA ?
GRACIAS POR LA ATENCION

WTF, no manchez, como usas codigo, te recomiendo ke uses un dataenviroment, esta mucho mas facil, se vuelve transparente para el usuario, y le metes la contraseña de una forma mas ke sencilla