Hello,
quand j'exécute ce qui est dessous, il me balance un msg d'erreur:
"instruction sql non valide, insert... ou update attendu"
 
voici le code (l'ouverture de la BDD est faite dans le form_load)
 
If (Trim$(a1.Text) = "" ) Or (Trim$(a2.Text) = "" ) Or (Trim$(a3.Text) = "" ) Or (Trim$(a4.Text) = "" ) Then
        MsgBox ("Des champs ne sont pas renseignés" )
        Exit Sub
    End If
 
'Déclaratives
 
    Dim Known As Boolean
    Known = False
     
    Set Rs = New ADODB.Recordset
    Rs.Open "db1", cnx, adOpenDynamic, adLockOptimistic
     
    On Error GoTo NEWCE
     
    Rs!chp1 = a1.Text
    Rs!chp2 = a2.Text
    Rs!chp3 = a3.Text
    Rs!chp4 = a4.Text
    Rs!chp5 = a5.Text
    Rs!chp6 = a6.Text
    Rs.Update
    Rs.MoveNext
    Known = True
     
NEWCE:
    If Known = False Then
        Rs.AddNew
    Rs!chp1 = a1.Text
    Rs!chp2 = a2.Text
    Rs!chp3 = a3.Text
    Rs!chp4 = a4.Text
    Rs!chp5 = a5.Text
    Rs!chp6 = a6.Text
        Rs.Update
    End If
Rs.Close
Set Rs = Nothing
cnx.Close
Set cnx = Nothing