Bonjour!

J'ai un probleme d'enregistrement de donnees dans une table Fournisseur sur Access.

J'ai un fomulaire ou j'effectue la saisie des differentes informations relatives au fournisseur et je valide l'enregistrement par le bouton Enregistrer.

Voici le code en Visual Basic:

Private Sub cmdEnregistrer_Click()
On Error GoTo Erreur
If MsgBox("Voulez vous réellement enregistrer ?", vbYesNo + vbDefaultButton1 + vbQuestion, "REPRESENTANT") = vbNo Then Exit Sub
If TxtCodeRepresentant <> "" And txtNomRepresentant <> "" Then
Dim CnX As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set CnX = New ADODB.Connection
CnX.Open "dsn=Gestion"
Dim Requete As String
Requete = "select *from fournisseur where [Num Fournisseur]='" & TxtCodeRepresentant & "'"
rs.Open Requete, CnX, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 Then
MsgBox "Code chantier deja attribué !!!", , "SAISIE CHANTIER"
Exit Sub
End If
'rs.Close
Requete = "insert into FOURNISSEUR values('" & TxtCodeRepresentant & "','" & txtNomRepresentant & "','" & "Text3" & "','" & "Text4" & "')"
rs.Open Requete
TxtCodeRepresentant.Text = ""
txtNomRepresentant.Text = ""
Text3.Text = ""
Text4.Text = ""
TxtCodeRepresentant.SetFocus
End If
Exit Sub
Erreur:
MsgBox Err.Description, vbExclamation, "FOURNISSEUR"
End Sub

Malheureusement lorsque je clique sur ce bouton je recois le message suivant:
"type de données incompatible dans l'expression du critere"

Excuser la longueur du texte et merci d'avance pour votre aide!