do while not objreader.eof
objreader.item("campo1")
objreader.nextresult
loop

koning