Connection ADODB à une base protégée par password

Bonjour,

J'essaie de me connecter en Adodb à une base protégée par mot de passe.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Connexion à la base Dim cnx As ADODB.Connection Set cnx = New ADODB.Connection   'Ouverture de la connexion With cnx .Provider = "Microsoft.Jet.OLEDB.4.0;" .Properties("JET OLEDB:System Database") = "C:\Users\System.mdw" .Open "Data Source=C:\Users\MaBase.mdb;User ID=Admin;Password=pwd" End With

---

Cela me renvoie l'erreur "Not a valid account or password"


Pourtant le password est le bon, et j'ai bien un compte Admin présent dans MaBase.mdb (Tools > Security > User and Groups permissions).

Comment corriger cela selon vous ?
Merci d'avance pour votre aide. :)

Bonjour,

peut-être comme ceci en décomposant le connect et l'open (mais je n'ai jamais fait d'ADO avec Access, alors je ne sais pas où ni comment caser ton paramètre properties

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Connexion à la base Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sConn As String   sConn = "provider=Microsoft.Jet.OLEDB.4.0; Data source=C:\Users\MaBase.mdb;User ID=Admin;Password=pwd"     'Open Connection cn.ConnectionString = sConn cn.Open

---