Visual Basic - Calcular edad

Tengo que generar un filtro en SQL contra una tabla de acces, para recuperar todas las personas que tienen una determinada Edad cargada en un TextBox. Lo que yo hice es esto pero no anda.
Sql = "SELECT IdPersona, ApellidoPersona, NombrePersona, FechaNac, Direccion"
Sql = Sql & " FROM PERSONA"
Sql = Sql & " WHERE ('" & Date & "' - PERSONA.FechaNac) = '" & txtEdad & "' "
Sql = Sql & " ORDER BY ApellidoPersona, NombrePersona,FechaNac "
Set cmdBusPer = New ADODB.Command
cmdBusPer.CommandType = adCmdText cmdBusPer.CommandText = Sql
cmdBusPer.ActiveConnection = GConnSacramentos
Set rsBusPer = cmdBusPer.Execute

Fijate con:

Sql = "SELECT IdPersona, ApellidoPersona, NombrePersona, FechaNac, Direccion"
Sql = Sql & " FROM PERSONA"
Sql = Sql & " WHERE Year(Date)-Year(PERSONA.FechaNac) = " & txtEdad
Sql = Sql & " ORDER BY ApellidoPersona, NombrePersona,FechaNac "