Acesso ao Access utilizando Excel - cód. acusa Senha Inválida

Estou com o mesmo problema. Alguém poderia me ajudar (não localizei a resposta do post do RobertoMC63 que trata deste mesmo assunto)
O código funciona bem quando não utilizo senha, mas quando o coloco o Password acusa Senha Invalida apesar da senha estar correta.

Tenho lido muita coisa a respeito e encontrado muita gente com a mesma dificuldade mas não encontrei resposta coerente.
Estou utilizando Access 2010

Segue o código

   Myconn = Diretorio & "\BDAccess.accdb"

    Set cnn = New ADODB.Connection
    With cnn
       .Provider = "Microsoft.ACE.OLEDB.12.0"
       .Properties("data source") = Myconn
       .Properties("User ID") = "Admin"
       .Properties("Jet OLEDB:Database Password") = daniel
       .Open
    End With
Grato

Daniel

Ola;

Provavelmente acusa senha invalida porque é texto, então se é texto terá de estar entre aspas duplas;

.Properties("Jet OLEDB:Database Password") = "daniel"

Veja o exemplo do Marcoratti;

http://www.macoratti.net/d020204.htm

Olá JPaulo,

Na verdade a palavra daniel já é uma variável string. Mas já tentei colocar a senha do daniel diteramente entre aspas e tb não funcionou.
Para versões do Access 2003 funciona perfeitamente mas quando converto a bd para 2010 que utiliza a senha criptografada é que acontece o erro.

grato

Faça o teste desta forma mais simples;

Sub AbreBancoProtegido()
 
    Dim obj As Access.Application
    Dim strBanco As String
 
    strBanco = "C:\SeuOutroBanco.accdb"
 
    Set obj = New Access.Application
    obj.OpenCurrentDatabase strBanco, False, "daniel"
 
    obj.Visible = True
    obj.UserControl = True
 
End Sub