Connexion a ma base access protégé par mot de pass

Bonjour,
Depuis un userform dans un fichier excel j'utilise cette macro (Connecte_base_Access) pour la connexion a ma base access
je souhait protégé ma base access

Sub Connecte_base_Access()
    Dim rs As Object
    Dim Nom_Base, Chemin_Base, SQL, connstring
    
    Set conn = CreateObject("ADODB.Connection")
    Nom_Base = "pyrus2047_ListView-table-access.accdb"
    Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
    connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
    conn.Open connstring
End Sub

J'ai trouver ceci mais je ne parviens pas a l'adapter

 connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base;
Uid=Admin;Pwd="mot de passe";ExtendedAnsiSQL=1;

si vous avez une solution merci
Cordialement