j'ai un probleme ... aider moi

Ocean[size=3]dans mon code j'ai
un module1
'connection a la BD
dim cnx as new ADODB.Connection
controleur.show

'la feuille controleur

Private Sub Effacer_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "Delete from controleur where cod_cont='" & ch & "' "
msgbox "Suppression réuissite !"
End Sub

Private Sub Modifier_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "update controleur set nom_art='" & text2.text & "' where cod_cont='" & ch & "' "
msgbox "Modification réuissite !"
End Sub

au cours de l'execution j'ai le message d'erreur suivant
"Data type mismatch in criteria expression"

sachant que dans la base de donnée cod_art est un integer
et lorsque je fait la suppression ou la modification
avec la même reqète mais le teste where sera sur une chaine
de caractère le code fonctionne correctement !

svp aider moi et merci pour votre aide

 Fiko ;-)

Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

le probleme peut etre il est la pour les vraibles numerique tu doit ecrir
" & nom_variable & "
et pour un vraiable du chaine du caractere
'" & nom_variable & "'
                                          bon courage