Visual Basic - Tabla (¿Como leer correctamente?)

Estimados Latinos:
Estoy com dudas p/ leer el total de registros de mi tabla. Este es mi comando:
If tabela_ativos.EOF = False Then
codinicial = tabela_ativos.Fields("CodigoDoCliente")
End If
tabela_ativos.MoveLast
codfinal = tabela_ativos.Fields("codigodocliente")

Mi tabla tiene 551 registros. El 1º empieza com el CodigoDoCliente nº 9 (registro 1) u el ultimo CodigoDoCliente es nº 581 (registro 551). Ocurre algunos CodigoDoCliente fueron excluidos (ej.: no hay el CodigoDoCliente nº 12). La instruccion arriba hace que el programa reconozca que el ultimo CodigoDoCliente es nº 569 (registro 539). El no reconoce que el ultimo CodigoDoCliente es nº 581 (registro 551).

¡Muchas gracias!

SI QUEIRES LEER CUENTOS REGISTROS SON PUEDES HACER UN
SELECT COUNT(CAMPO) FROM TABLA

SI QUIERES VER EL PRIMERO VE CON MOVEFIRST
PARA VER EL ULTIMO PRUEBA ASI

tabela_ativos.MoveLast
If tabela_ativos.EOF = False Then
codfinal = tabela_ativos.Fields("codigodocliente")
End If

Saludos...
Probá éste código:
With tabela_ativos
If .BOF = False Then
.MoveFirst
End If
codinicial = .Fields("CodigoDoCliente")
.MoveLast
codfinal = .Fields("CodigoDoCliente")
End With
Y verificá que en la tabla (y en la consulta también) estén los datos ordenados por CodigoDoCliente.
Espero que te sirva...