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

creo que ahi debes de ponre la pass

DocWord.MailMerge.OpenDataSource Name:=App.Path & "master.mdb"
ConfirmConversions:=False 'adios conversiones
ReadOnly:=False 'fuera solo lectura
LinkToSource:=True 'llamar a la fuente
AddToRecentFiles:=False 'no a los archivos recientes
PasswordDocument:="" 'no pass
PasswordTemplate:="" 'no pass temporal
PasswordTemplate:="" 'no pass temporal

creo que aqui es donde debes de poner 'poner la pass

WritePasswordDocument:="" 'grabar password
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