det virker ikke - modul og forespørgsel

Hej alle kloge hovder

Jeg har et problem når jeg prøver at køre en forespørgsel med dette modul som jeg har fundet her: http://www.eksperten.dk/spm/116224
jeg får en dialogboks med denne fejl
Compile error.
syntax error

jeg kan trykke ok eller hjælp


-------mit modul------
Option Compare Database


Public Function Alder(Dato As Date) As Integer
    If DateSerial(Year(Date), Day(Dato), Month(Dato)) > Date Then
        Alder = DateDiff(\"yyyy\", Dato, Date) - 1
    Else
        Alder = DateDiff(\"yyyy\", Dato, Date)
    End If
End Function

-------------slut på modul-------

-------------modul med markeringer--
Option Compare Database


-en pil- -gul- Public Function Alder(Dato As Date) As Integer
    If DateSerial(Year(Date), Day(Dato), Month(Dato)) > Date Then
-rød- -blå makeret-  Alder = DateDiff(\"yyyy\", Dato, Date) - 1
    Else
-rød-  Alder = DateDiff(\"yyyy\", Dato, Date)
    End If
End Function
-------slut på modul med markeringer-----