tente assin...
Set Conexao = New ADODB.Connection
With Conexao
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Mode = adModeReadWrite
.ConnectionString = "data source=" & DatabasePath & " ;Jet OLEDB:Database Password= " & Senha
.Open
End With
em dataBasePath coloque o lugar onde o Bd Esta
uma dica: eu uso um form com um commandDialogo, neste fom eu localizo a base de dados e passo o endereco para DataBasepth, é batata...