Hace uno dias hice una consulta sobre como abrir una base de datos protegida con password desde ADO, la solucion es:

Dim cn As New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.3.51"
cn.Properties("Data Source") = "C:\mis documentos\bodega\bodega segura.mdb"
cn.Properties("Jet OLEDB:Database Password") = "PasswordDatabase" ' Esta linea es la culpable
cn.Properties("Jet OLEDB:System database") = "c:\mis documentos\bodega\bodega.mdw"
cn.Open UserID:="NombreUsuario", Password:="PasswordUsuario"


Espero le sirva a algun colistero.

miguel@alcavia.net

Mensaje enviado por "Ruben Nadal" <admon@plastiken.com>

Al fin lo he resuelto:

Function OpenDB(ByVal DBFileLocation As String) As Boolean
Dim strcn As String
On Error GoTo errorDB
  strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & DBFileLocation & ";" _ ' Localizacion de la BD
        & "Persist Security Info=False;" _
        & "Jet OLEDB:Database Password=" & DBPassword ' Password de la BD

  Set cnConexionJet = New Connection
  cnConexionJet.Open strcn
  OpenDB = True
  Exit Function

errorDB:
  OpenDB = False
  MsgBox "Error: " & Err.Number & ". " & Err.Description
End Function