sous mon bouton j"ai ecris :
Dim ct As ADODB.Connection
Dim rc As ADODB.Recordset
Set ct = New ADODB.Connection
ct.Provider = "microsoft.jet.4.0"
ct.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrateur\Mes documents\konan k_New1.mdb;Persist Security Info=False"
ct.Open "LOCAL", ct, adOpenDynamic, adLockOptimistic
rc.AddNew
rc!reflocal = Text1.Text
rc!liblocal = Text2.Text
rc!refservice = Text3.Text
rc.Update
rc.Close
ct.Close
et il ne marche pas. A l'exécution ,voici le message d'erreur il renvoit: Erreur d'execution '-