Abrir mdb con password con ado

Charango
22 de Julio del 2004
Eso, como abro una mdb con password, mediante ado

tecniCam
22 de Julio del 2004
base.Connect = ";pwd=clavequesea;"

krizall
22 de Julio del 2004
Public Sub AbrirConn(ByVal Ruta As String, ByVal Pwd As String)
'procedimiento que habre una base de datos con password
On Error GoTo ERRHANDLER
Set Conn = New ADODB.Connection
Conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & Ruta & ";persist security info=false;jet oledb:database password=" & Pwd
'si la base de datos no tiene clave quitar lo que sigue de "Info=false"
Conn.Open
Exit Sub

ERRHANDLER:
MsgBox "Unexpected error in procedure: AbrirConn" & vbCrLf & _
"Error #" & Err.Number & ": " & Err.Description, _
vbCritical + vbOKOnly, App.Title
Err.Clear
End Sub

solo llama a este procedimiento dandole la ruta y el password de tu bd y listo