Access - problema con las fechas

tengo que sacar una consulta con todos los mayores o menores de catorce años de una base, si pongo la fecha actual ">fecha()-5084" me lo da perfecto, pero si intento introducir otra fecha por teclado me da error, me podeis ayudar , gracias.

Create esta función

Public Function CalcularEdad(FechaNacimiento As date, FechaTope As Date) As Variant

Dim EDAD As Integer
EDAD = DateDiff("yyyy", FechaNacimiento, FechaTope)

If FechaTope < DateSerial(Year(Date), Month(FechaNacimiento), Day(FechaNacimiento)) Then
EDAD = EDAD - 1
End If

CalcularEdad = EDAD

End Function

en tu consulta pondras edad:CalcularEdad([tucampodefecha];fecha()) y en criterios >=14
Saludos.