Visual Basic para Aplicaciones - Tabla (leer registros)

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!

Que consulta realizas ??
Los ordenas por CodigoDoCliente ??