Problemas con Bucle While Not EOF()

Hola a todos, seguro que es fácil pero no doy con la tecla.
Tengo un formulario en VB 2010 relacionado con una base de datos de Access, todo funciona correctamente.
Una de las opciones, para sacar unas estadísticas, necesito hacer una bucle While Not EOF() que recorra la base de datos y ejecute unas rutinas hasta que llegue al final.
Al hacerlo manualmente a través del click de un botón funciona correctamente, a la
hora de automatizar el proceso con dicho bucle, siempre me da error: “No se encontró IOException , nombre o número de archivo incorrecto ” y me muestra siempre la línea “While Not EOF(1)”

Código en manual que funciona correctamente:

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Me.HamradioBindingSource.MoveNext()
v20mts()
v40mts()
End Sub

Agradecería cualquier ayuda.
Gracias por adelantado.