Se il database che si vuole aprire con ADO è protetto da password, è necessario specificare la parola chiave nella stringa di connessione. Allo scopo può essere utilizzata la seguente routine, che per la connessione utilizza il Microsoft Access Driver:

Public Sub LoadDatabase(DB As ADODB.Connection, FileName As String,
Optional Password As String = "")
Dim sConn As String
Screen.MousePointer = vbHourglass
With DB
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
sConn = "DRIVER={Microsoft Access Driver (
*.mdb)};DBQ=" & FileName & ";"
'Se è stata specificata una password, la aggiunge
alla stringa di connessione.
If Password <> "" Then sConn = sConn & "Pwd="
& Password & ";"
'Apre il database.
.Open sConn
End With
Screen.MousePointer = vbNormal
End Sub