Gracias por los consejos ya os entiendo, pero aun sigue mi problema, lo expongo un poco mejor.
Asi no tengo ningun problema el ciclo sale con posicion=6
Código:
posicion=0
while posicion<6 and not(rec2.eof)
posicion=posicion+1
rec2.movenext
wend
Pero asi no, siendo cuenta=6
Código:
posicion=0
while posicion<cuenta and not(rec2.eof)
posicion=posicion+1
rec2.movenext
wend
Asi el ciclo sale por fin de registro con posicion=7