abrir base con password

[xochitemol]

Set Cnn = New ADODB.Connection

Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; " & _
"Data Source=" & sBase & ";" & _
"Jet OLEDB:Database Password=laclave"
'************************************************* *
esta es otra forma
*****************************
dim StrPass as string
StrPass = ";pwd=cossies"'este es la contraseña
Set db = DBEngine(0).OpenDatabase(App.Path & "\RBDC\BDC.MDE", False, False, StrPass)