Devo aprire un database protetto da password utilizzando ADO. Come posso fare?

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