Access - CONTADOR-AÑO ACCESS

Hola, Me gustaría poner un contador autonumerico a mi base de datos que reinicie a "1" cuando cambie de año del tipo "2008-000"
He encontrado en este foro (FECHA 08/11/2007) las siguientes líneas de código y he seguido los pasos explicados. El problema que tengo es que el contador se me queda siempre en "002" aunque cree nuevos registros. Dónde está el fallo??
Gracias y saludos.

Private Sub Form_Current()
If Me.RecordsetClone.RecordCount = 0 Then
Contador = "001" & "-" & Format(Date, "yyyy") & "-" & "CASA"
ElseIf Me.RecordsetClone.RecordCount > 0 And IsNull(Contador) Then
Contador = Format(Left(DMax("Contador", "Tabla1"), 3) + 1, "000") & "-" & Format(Date, "yyyy") & "-" & "CASA"
End If
End Sub

Hola Romano:
Yo lo haría de la siguiene forma:
Crearía en la tabla un campo para almacenar el número consecutivo (numConsecutivo) Entero Largo-, y lo que tú llamas campo contador (Referencia)-Texto-.

Dim Anyo As Integer
Anyo = Year(Date)
numConsecutivo = Nz(DMax("numConsecutivo","MiTabla","Year(left(Referencia,4)) ="& Anyo))+1
Referencia = Format$(Anyo) & "-" & Format(numConsecutivo,"000")

Va de memoria, sí te da algún error, lo comentas

Un Saludo

Gracias por la respuesta. El contador sigue sin moverse, se queda en 2008-001. El código lo estoy poniendo "Al activar registro".

Hola Romano:
Ahora lo he probado, sobraba el Year() en la condición de la función DMax

Dim Anyo As Integer
Anyo = Year(Date)
numConsecutivo = Nz(DMax("numConsecutivo", "TuTabla", "left(Referencia,4) =" & Anyo)) + 1
Referencia = Format$(Anyo) & "-" & Format(numConsecutivo, "000")

Un Saludo

Funciona perfectamente. El código hay que añadirlo en el apartado "antes de insertar" de las propiedades del formulario.
Muchas gracias nuevamente.