Visual Basic - Contador de registro(es facil)

Hola, mi problema es este.
Tengo un programa tipo agenda y quiero pintar en un label "Registro 1 de 30", o "Registro 3 de 30", vamos que indique en la posición que se encuentra dentro de la base de datos.
Para ello utilizo AbsolutePosition :

Label2 = "Registro " & (reg.AbsolutePosition + 1) & " de " & _ reg.RecordCount

Según la ayuda de Visual para utilizar el Absoluteposition tengo que abrir la base de datos con snapshot,

Set reg = base.OpenRecordset("agenda", dbOpenSnapshot)

pero cuando le añado dbOpenSnapshot me dejan de funcionar comandos como:

reg.addnew, edit, delete...

¿puedo hacer algo?
Muchas gracias.

Con DAO puedes abrirlo en modo dbOpenDynaset y funciona pero no tiene por que ser exacto, el modo dbOpenSnapshot no deja variar los registros

Con DAO puedes abrirlo en modo dbOpenDynaset y funciona pero no tiene por que ser exacto, el modo dbOpenSnapshot no deja variar los registros