Beh, io l'ho risolta in questo modo:

If objreader.read then
'istruzioni prima che entri nel ciclo
While (0 = 0)

'istruzioni nel ciclo

If objreader.Read = False Then
Exit While
End If
End While
end if