Dim pezzo As Double
pezzo= rs.Fields("prezzo").Value

se faccio questa dichiarazione mi da un errore type mismatch