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

Utente HTML.it
chiede

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

Redazione HTML.it
risponde

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