dim connexion1 As ADODB.Connection dim rst As ADODB.Recordset Dim req Set connexion1 = New ADODB.Connection connexion1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database password=salam-khou-tarik" Set rst = New ADODB.Recordset connexion1.Open rst.CursorLocation = adUseClient req = "ta requête à exécuté" rst.Open req, connexion1