hai provato con:

codice:
whire dataread.read
  msgbox dataread("nomecampo")
end while
a me funziona