🚀 go-pugleaf

Ciao a tutti,
cerco di stabilire una connessione ad un DB Access protetto da password di
seguito il codice che uso :

Option Explicit
Private cnnDatiSoc As New ADODB.Connection
Private strSQLDatiSoc As String
Private strConDatiSoc As String
Private rstDatiSoc As New ADODB.Recordset
Private Sub Form_Load()
    Resize Me
    strConDatiSoc = App.Path & "\db1.mdb"
    cnnDatiSoc.Provider = "Microsoft.Jet.OLEDB.3.51"
    cnnDatiSoc.Open strConDatiSoc, "Admin", "password"
    strSQLDatiSoc = "SELECT * FROM datisocieta "
    Set rstDatiSoc = cnnDatiSoc.Execute(strSQLDatiSoc)
    Set txtragsoc.DataSource = rstDatiSoc
    txtragsoc.DataField = "ragsoc"
    cnnDatiSoc.Close
    rstDatiSoc.Close
End Sub

Questo codice genera un errore quando deve passare la password del DB..... ?
Se elimino la password al DB va tutto bene, ma per motivi di sicurezza ho
bisogno che il DB sia protetto da password.
Come posso risolvere il problema ?