Problemas de compatibilidad entre access 2003 y access 2007

hice una base de datos en access 2007, pero necesito trabajar en red, la otro computadora tiene access 2003, al correr la base me tira un error en la que tiene access 2003, creo que es un problema de compatibilidad pero no puedo identificarlo.

Private Sub Fecha_AfterUpdate()

Dim máximo As Integer

If Nz(DMax("[sanción numero]", "sanciones", "Year([Fecha]) = Year(Date)")) = 0 then

máximo=1

Else

Máximo = Dmax("[sanción numero]","sanciones","year([Fecha])=year(Date)")) +1

End If

[sanción numero] = máximo

End Sub

el error lo tira en la parte subrrallada.

desde ya muchas gracias.