Se ho capito bene il tuo codice va scritto così:

codice:
dim query as string
query = "update anagprodotti set quantita_magazzino = '" & risultato & "' where cod_prodotto = '" & codice & "'"
cs.execute query
Ciao.