Visual Basic - EOF + WHILE

hola... tengo que buscar registros que contenga un valor especifico en una base de datos ado.. y utilizo un while
'While rs3.Fields("zona.nrozona") <> numeroz And (Not rs3.EOF) And Not rs3.BOF
rs3.movenext
wend

pero cuando llega rs3.eof a true no sale del while y me dice esto

either bof or eof is true,or the current record has been deleted.requested operation requires a current record

alguien me pueda ayudar?
gracias

Bueno se que es lo mismo pero por que no usas el do while

Do While rs3.Fields("zona.nrozona") <> numeroz And Not rs3.EOF
rs3.movenext
Loop

asi mismo

gracias pero ya lo use, y es el mismo resultado

Evidente que te diga eso.
¿sabes lo que estás poniendo?
¿Y porqué no te colocas un VB en español y asi los mensajes te saldrán en una lengua que puedas entender?

se lo que estoy poniendo..pelotudo...

se lo que estoy poniendo..pelotudo...si estoy en un foro...es para poder sacar dudas ..no para que un infeliz me diga una pelotudez ironica

El error sucede porque estás evaluando
"rs3.Fields("zona.nrozona") <> numeroz"
y cuando llega al final de los registros ( EOF() ) ya no hay un campo "zona.nrozona" que evaluar si es igual o diferente que "numeroz".

Cambia tu ciclo por un Do while así (porque While-Wend no tiene Exit Do):

Do While rs3.Fields("zona.nrozona") <> numeroz
rs3.movenext
if rs3.EOF or rs3.BOF then Exit Do
Loop

Según lo que estás comparando, tal vez debas encerrar todo este bloque dentro de una comparación inicial:
If Not rs3.EOF Then
Do While rs3.Fields("zona.nrozona") <> numeroz
rs3.movenext
if rs3.EOF or rs3.BOF then Exit Do
Loop
End If