Visual Basic - Leer una Tabla

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 lo que quiere es saber el primero y el ultimo ensaya con un instruccion sql directa select max o min y te pones a recorrer el recordset, por que cuando este sea demasiado grande se te va a demorar haciendo el recorrido last - first