numeros automaticos consecutivos

[hernan_garelli]

buen dia, me surge una gran duda con algo q pense q tenia dominado, estoy trabajndo con vb6, access y dao... quiero generar numeros automaticos para luegos guardarlos en la base... resulta q desde vb creo los numeros, y de una carga a otra me genera cualq numero, q no es consecutivo, y se repiten con el ultimo....
en fin, lo q quiero hacer es generar numeros automaticos consecutivos, con un campo de mi tabla rx, llamado nro...
acepto sugerencias, y saber de q manera ustedes lo hacen... el codigo q utilizo es:

na2 = 0
Set rsh2 = db.OpenRecordset("rx")

If rsh2.BOF And rsh2.EOF Then
na2 = 1

Else
rsh2.MoveLast
na2 = rsh2!nro + 1 'automat serial

End If



desde ya gracias...