voici mon code
Private Sub Command5_Click()
Dim base As Database
Dim sql As String
Set base = OpenDatabase("CD.mdb")
MsgBox ("Ouverture Reussi")
sql = "INSERT INTO Emprunteur(Nom,Prenom,Adresse,Telephone,Titre_de_lelement_prete,Date_du_pret,Nombre_de_cds,N°cd) Values ('" & Ajout.Text1 & "','" & Ajout.Text2 & "','" & Ajout.Text3 & "','" & Ajout.Text4 & "','" & Ajout.Text5 & "','" & Ajout.Text6 & "','" & Ajout.Text7 & "','" & Ajout.Text9 & "')"
'MsgBox (sql)
base.Execute (sql)
Ajout.Text1 = ""
Ajout.Hide
Confirmation.Show
End Sub