[VBA] update avec condition

Bonjour à tous,

J'ai un petit problème lors d'une mise à jour.

Code:

---

1 2 3 4 5 6

Private Sub Commande83_Click() IDCompo2 = Me.lstResults12 CurrentDb.Execute "Update Composition Set NAV = 'OK' Where ID_Comp = '" & IDCompo2 & "'"   End Sub

---

qui me renvoit l'erreur suivante : Data type mismatch in criteria expression.
J'ai essayé en enlevant les guillemets, en en rajoutant et dans ce cas j'ai l'erreur too few parameters.

Est ce que quelqu'un pourrait m'aider.

Merci

Après réflexion ca focntionne, voici le code :

Code:

---

1 2 3 4

Private Sub Commande83_Click() CurrentDb.Execute "Update Composition Set NAV = 'OK' Where ID_Comp =" & Me.lstResults12 End Sub

---