Public Function CalculateAge(varDob As Variant) As Variant
' Return the number of full years'
On Error GoTo Er
  Dim intAge As Integer
  
  If IsDate(varDob) Then
    intAge = Year(Date) - Year(varDob)
    Select Case Month(Date) - Month(varDob)
      Case  0 
        If Day(Date) < Day(varDob) Then
          intAge = intAge -  1 
        End If
      Case Is <  0 
        intAge = intAge -  1 
    End Select
    CalculateAge = intAge
  Else
    CalculateAge = Null
  End If
Ex:
Exit Function
Er:
  'ErrorLog "modDate", "CalculateAge", Err.number, Err.Description'
GoTo Ex
End Function

SELECT CalculateAge([Ind_DoB]) AS Age FROM tblInd

?# 01 / 01 / 2003 # - # 12 / 31 / 2002 #
  1  
? Year(# 01 / 01 / 2003 # - # 12 / 31 / 2002 #) 
  1899  
? Year(# 01 / 01 / 2003 # - # 12 / 31 / 2002 #) -  1900  
- 1  

DateDiff( "yyyy" ,dtmBD, date())+(date()<dateserial(year(dtmBD),month(dtmBD),day(dtmBD)))