Ocean[size=3]mon code est le suivant
le module1 se lance au démarrage

Public cnx As New ADODB.Connection
Public Sub main()
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.ConnectionString = ".\GESTION DES PROJETS.mdb"
cnx.Open
Form1.Show
End Sub

et l'évènement de la suppression est la suivante

Private Sub supprimer_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "Delete from controleur where cod_cont='" & ch & "'"
Beep
Call RemplissageMSFlexGrid1
Call initchamps
End Sub

le problème se trouve dans la ligne de cnx.execute .....
il affiche le probleme suivant

Erreur d'exéution'-2147217913 (80040e07)

Data type mismatch in criteria expression.

sachant que la table controleur (cod_cont,nom_cont)

s il vous plait aider moi pour corriger ce code