Amigos,

Tenho tentado de várias formas acessar um banco access com senha utilizando VBA no EXcel mas não tenho tido sucesso. A última tentativa utilizei uma dica deste site, mas, me retorna que a senha é inválida apesar de estar certa. Não sei se é por causa do Access 2010. Alguém tem alguma dica?

Public Sub Budget_data_Conn2()

Const PATH_BD = "E:excelDashboardcubo.accdb"
Const BD_SENHA = "123"

Dim Cnnct1 As ADODB.Connection
Set Cnnct1 = New ADODB.Connection

On Error GoTo ERRHAN
With Cnnct1
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Data Source") = PATH_BD
.Properties("User ID") = "Admin"
.Properties("Jet OLEDB:Encrypt Database") = False
.Properties("Jet OLEDB:Database Password") = BD_SENHA

.Open
End With
Exit Sub
ERRHAN:
MsgBox "Error: " & Error & ", " & Err.Number

End Sub

Obrigado.