if ( IsNumeric(prezzo)) then
RecSet("prezzo") = cInt(prezzo);
else
RecSet("prezzo") = 0,00;
end if

Mi da un errore di sintassi
edito: un errore di sintassi sulla riga dell'else