Visual Basic - NO LLEGO AL FINAL DE LA BD

Hola

tengo una BD ordenada de forma ascendente, cuando lanzo la aplicacion de VB que acuta sobre dicha tabla, la aplicacion no recorre los registro en orden, y tampoco consigo que me llegue al final de la tabla, sino que los ultimos 5 registros aproximadamente no me los lee.
La condicion que tengo puesta para que recorra todos los registros es la siguiente:

while not data1.recordset.eof

pero me da eof = verdadero antes que llegar al final del fichero.

¿Alquien me puede ayudar?

Gracias de antemano.

No dices de que base de datos se trata ni porque dices que está ordenada.
Si hablas de Access, tuve una experiencia con una tabla que debia estar ordenada por su creación y no era asi.
Primero, y por si acaso, repara la base de datos.
Después no la uses en orden natural, usa Select ..... order by, o crea un indice en Access y después Recordset.Index="Como se llame"
Igual hasta funciona.

Primero haz lo siguiente:

dim Cn as new ADODB.Connection
dim Rs as New ADODB.Recorset
Cmd="Select * from <TABLA> order by <ALGUN CAMPO>"

Rs.Open Cmd,Cn

' Para q recorra tu Recordset...

While (Not Rs.EOF)
...
... <Agrega Tu Codigo Aqui>
...

Wend

Primero haz lo siguiente:

dim Cn as new ADODB.Connection
dim Rs as New ADODB.Recorset
Cmd="Select * from <TABLA> order by <ALGUN CAMPO>"

Rs.Open Cmd,Cn

' Para q recorra tu Recordset...

While (Not Rs.EOF)
...
... <Agrega Tu Codigo Aqui>
...

Wend