Access - CONTADOR

Hola ...

Necesito una colaboración de ustedes.
Necesito crear en un campo de texto un contador

Tabla = Factura
Campo = Codigo
Formulario = frmfac

Tengo esta sentencia en visual pero no me funciona en Access que debo hacer que debo modificar….

Private Sub Form_Load()

Dim cod$, val$
If rsautor.RecordCount > 0 Then
cod = Mid(rsautor(0), 2, 4)
val = cod + 1
txtcod = "A" & Right(String(6 - Len(val), "0") + val, 6)
Else
txtcod = "A" & "000001"
End If

End Sub

Gracias de antemano por su colaboración…

¿SERA ESTO LO QUE BUSCAS?

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.NewRecord Then
Me.orden = Nz(DMax("codigo", "factura")) + 1
End If
End Sub

quique

Gracias si es lo que necesito......

Muchas gracias

Perdona quique..

Pero al cargar tengo un error en Me.Orden

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.NewRecord Then
Me.orden = Nz(DMax("codigo", "factura")) + 1
End If
End Sub

Que hago... Gracias

DONDE DICE ME.ORDEN - DEBE DECIR ME.CODIGO.
PERDONA FUE UN ERROR MIO.
TENE EN CUENTA QUE LA PROPIEDAD EN LA TABLA DE CODIGO" DEBE SER NUMERO , EN NINGUN CASO TEXTO."
QUIQUE

GRACIAS QUIQUE POR TU AYUDA.

FUE DE MUCHA AYUDA.. FELIZ DIA....

DANIELA D.