如何声明密码以从Excel连接到受密码保护的访问文件

Question

Sub Update_Record()

Dim accApp As Object
Dim InvoiceX As String, ResolutionX As String
InvoiceX = Sheets("NG1").Range("B8")
ResolutionX = Sheets("NG1").Range("G11")
Dim SQL As String
SQL = "UPDATE [T01] SET [T01].Resolution = '" & ResolutionX & "' WHERE "
SQL = SQL & "((([T01].Invoice)=" & InvoiceX & "));"
Set accApp = CreateObject("Access.Application")
With accApp
    .OpenCurrentDataBase "\\MyDataBase.accdb"
    .DoCmd.RunSQL SQL
    .Quit
End With
Set accApp = Nothing

End Sub

'下面的代码运行完美。但是它每次都要求我输入密码：我应该在哪里以及如何将密码添加到代码中？