Autoincremento en VBA Access a campo de consulta

Buenas tardes quiero preguntarles como puedo adecuar el siguiente código que me hace de manera adecuada el autoincremento en los campos de una tabla a un autoincremento de los campos de una consulta.

Dim db2 As Database

Dim rs2 As Recordset

Dim var2 As Double

Dim v2 As Variant

Dim mvarobservaciones2 As String ' On Error Resume Next
Set db2 = CurrentDb

Set rs2 = db2.OpenRecordset("Select * from Consultaorigengeneral")
var2 = 0
rs2.MoveFirst
Do While Not rs2.EOF
rs2.Edit var2 = var2 + 1 rs2!

Campo0 = var2 rs2.Update
rs2.MoveNext
Loop

Hay que tener en cuenta que Campo0 es el campo que deseo hacer el autoincremento este no proviene de ninguna tabla, al ejecutar con F8 paso a paso el código y poner el mouse sobre Campo0 me aparece un mensaje que dice "No se encontró el elemento en esta colección"..

Gracias por la ayuda..

Att. Hernán Camilo.