Ciao,
devi verificare che l'item che vai a leggere non contenga un valore null, così eviti l'errore.
While read.Read()
If Not read.GetValue(0) Is DBNull.Value Then
listino = read.GetValue(0)
else
listino = 0
end if
...
End While
----------------------------------------------------
Ricorda che, accettare la risposta è un modo di ringraziare chi ci ha aiutato ed evidenziare che il problema è stato risolto.
http://www.infomidia.it
Domenico