if dr.read = false then
'niente dati
else
while dr.read...
'scrivi
end while
end if?