abrir base con password

[josesus]

Mi pregunta es la siguiente: ¿donde pongo la clave en la instruccion sql?
set base=workspaces(0).opendatabase("base001.mdb")
¿donde va la pass?

[vbx3m]

Prueba con este codigo...

Set db = Workspaces(0).OpenDatabase("base001.mdb", True, False, `;pwd=` & "password")

No se si sirva pero intentalo... Me avisas que tal...

[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)