Simulador de autonuméricos en Access con VBA

Hola Expert@s quiero preguntarles lo siguiente, tengo este código en VBA para simular un campo autonumérico (no puedo definir dicho campo como autonumérico),ya que el proyecto me obliga a crear un campo autonumérico mediante programación:
Dim db1 As Database

Dim rs1 As Recordset

Dim var1 As Double

Dim v1 As Variant

Dim mvarobservaciones1 As String
On Error Resume Next
Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("Select * from Descripción")

var1 = 0
Do While Not rs1.EOF
rs1.MoveNext rs1.Edit var1 = var1 + 1 rs1!Id = var1
rs1.Update

Loop

este código funciona bien pero mi pregunta es por que razón me empieza a imprimir los números en el campo de la Tabla a partir de la segunda fila? Y no desde la primera fila que es como lo necesito..agradezco de antemano a quien me ayude y hago esta pregunta en debido a que desafortunadamente ya no hay expertos disponibles en la categoría de Access.

Att. Hernán Camilo Martínez V.