Connexion a une base access protégé

Bonjour
Depuis un fichier excel j'utilise cette macro (Connecte_base_Access) pour la connexion a ma base access
je shouhait 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

Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\mydatabase.accdb;
Uid=Admin;Pwd=;ExtendedAnsiSQL=1;
Merci d'avance
Cordialement