Visual Basic - AYUDA: Campo numérico

Tengo una base de datos en Acces en la que tiene 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.
Todo esto lo hace en un botón con el evento Hacer click.
Yo he conseguido hacer 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. Espero haberme explicado bien.

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