Ayuda! Campo numérico que se reinicia cada año

Hola buenos días! Mire, Tengo una base de datos en Access para añadir expedientes mediante un formulario, en el tengo un botón que me pasa a un nuevo expediente en el evento hacer click.
En la tabla y formulario tengo un campo NumExp que hace la función de Autonumérico sin serlo, me explico:
Tiene que sumar de uno en uno hasta que acabe el año. Cuando acabe el año tiene que volver al 0 y empezar de nuevo, es decir, reiniciar el campo.
Yo he conseguido que me sume si es el mismo año, pero cuando cambia el año me sigue sumando como si nada.
Si pudieran ayudarme lo agradecería enormemente porque tengo que entregarlo dentro de nada y es la primera vez que toco visual basic.
Espero haberme explicado bien. Gracias.
Dim db As Database
Dim Rst As RecordSet
Me.RecordSet.Clone
Set db = OpenDatabase("C:\Exps.mdb")
Set Rst = db.OpenRecordset("SELECT Max(NumExp) FROM Expedientes WHERE 'AñoActual = Year(Date)'")
NumExp = 0
With Rst
If Rst.BOF And Rst.EOF Then
NumExp = 0
End If
NumExp = .Fields(0).Value + 1
End With
Rst.Close
db.Close