Un campo autonumérico no te lo va a permitir, que por otro lado es lógico, ya que de otra forma, la integridad referencial se iría al carajo.
Para hacer lo que quieres necesitas un campo numérico normal y realizar una función que reenumere. Por ejemplo
dim i
i=i
rs.execute ("Select * from tabla order by El_campo_que_me_interese")
do while not rs.eof
rs("orden")=i
i=i+1
rs.movenext
loop
Que yo sepa es la única manera. Bueno, siempre puedes recurrir al:
rs.AbsolutePosition, que te dice el número de registro.
Espero que te sea de ayuda
