Erreur d’exécution '3061' : trop peu de paramètres. 1 attendu.

Bonjour,

j'aimerais que vous m'aidiez à régler un petit souci dans Access.
voilà je voudrais exécuter une requête Sql en Vba, dont le script est le suivant :

Dim var As String: Dim base As Database

If (list_ref.Value <> "" And IsNumeric(qtemaj.Value)) Then

Set base = Application.CurrentDb
var = "UPDATE produit SET qteapp=" & qtemaj.Value & " WHERE idprod=" & list_ref.Value & ""
base.Execute (var)

MsgBox "Produit Enregistré"

mais il y a un message d'erreur qui s'affiche:
"erreur d’exécution '3061' : trop peu de paramètres. 1 attendu."
et le curseur se positionne au niveau de base.Execute (var)

Merci d'avance.