Private Sub B_ok_Click()
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Access2000.mdb"
Sql = "INSERT INTO Client (Nom_client,ville,salaire) VALUES('" & Me.Nom_Client & "','" & _
Me.Ville & "'," & CDbl(Me.Salaire) & ")"
cnn.Execute Sql
cnn.Close
Set cnn = Nothing
End Sub
ou
ChDir ActiveWorkbook.Path
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Access2000.mdb"
rs.Open "client", cnn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Nom_Client = Me.Nom_Client
rs!Ville = Me.Ville
rs.Update
rs.Close
cnn.Close