IF NOT RS_SCARICO.EOF THEN
dim tot_scar, scar

rs_scarico("prezzo") = scar
tot_scar = (scar * qta)

rs_scarico.addnew
rs_scarico(1) = id_merc
rs_scarico(2) = qta
rs_scarico(4) = tot_scar
rs_scarico.update

rs_scarico.Close
set rs_scarico = Nothing
else
.......
end if

Ok, l'errore non compare più... ehm... però... non inserisce i dati nel db, o meglio mi esegue la sottrazione, ma nel db non vedo inserire il record ?!