Connection a un fichier access avec un mot de passe

Bonjour a tous

depuis excel je me connecte a une base access avec le bout de code qui fonctionne tres bien

je voudrai proteger mon fichier access avec un mot de passe "PAPA"

donc comment adapter ce code pour que excel se connecte

si vous aviez une solution merci

Cordialement

'connection base 
Sub Connecte_base_Access()
    Dim rs As Object
    Dim Nom_Base, Chemin_Base, SQL      ', connstring

    Set conn = CreateObject("ADODB.Connection")
    Nom_Base = "les-dons-aux association-table-access.accdb"
    Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
    'chaine de connexion
    connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
    'Connexion a la base
    conn.Open connstring
End Sub