Hola de nuevo!!
 
Para resolver el problema que planteaba, he creado un módulo con una función que devuelve el valor de un contador para ir numerando los registros resultantes de un consulta: 
---------------------------------------------
	Option Compare Database 
	Global Contador As Integer
	Global TotalRegistros As Integer  
	Function Cuentas(Dato As Integer) As Integer
 
	'Incremento el numero de registro 
Contador = Contador + 1 
	'Devuelvo el valor incrementado 
Cuentas = Contador 
	'Compruebo si es el ultimo registro de la consulta a numerar
	'Si es asi, inicializo el contador para que al volver a ejecutar la consulta
	'comience a numerar desde 0 otra vez 
If TotalRegistros = 0 Then
	    TotalRegistros = DCount("Codigo", "Listado Clientes")
	Else
	    If Contador = TotalRegistros Then
	        TotalRegistros = 0
	        Contador = 0
	    End If
	End If
 
	End Function
---------------------------------------------
Despues en el diseño de la consulta creo un nuevo campo numero y pongo : 
Numero: Cuentas([Codigo]) 
Cuando ejecuto la consulta, durante 1segundo aparece todo correcto, y va numerando 
1
2
3
..
Pero inmediatamente despues se refrescan esos valores y si de la consulta resultan 80 registros, 
aparece algo como esto: 
78
79
80
1
2
...
Además cada vez que muevo la barra de desplazamiento, se recalculan esos valores... 
Alguien me puede explicar cual es el problema... ? 
Una vez más..GRACIAS