Prova così:

strSQL1 = "update PRODOTTI set Pezzi="& rs2("Pezzi") &" where Codice = '"& rs2("Codice") &"'"