Mise a jour d'une table en vba (access)

Bonjour, J'ai un problème avec ma requète sql pouvez vous m'aider c'est pour mon stage de bts ig 1er année.
Voici le code:
Private Sub CmdEnreg_Click()
Dim db As dao.Database
On Error GoTo Err_CmdEnreg_Click
If CmdEntrée.InSelection = True Then
Set db = DBEngine.OpenDatabase("C:\Documents and Settings\Romain\Bureau\Goubard\stock.mdb")
db.Execute "update TblStock set QuantitéActuel=QuantitéActuel+"&txtEntréePdts&" Where N°Produit=(select N°Produit from TblProduit where LibProduit="&txtNomProduitE&");"
Debug.Print "records affected= " & db.RecordsAffected
db.Close
DoCmd.GoToRecord , , acNewRec
End If
End Sub