Calculating age from a birth date in Access

=DateDiff("yyyy", [Birthdate], Now())+ Int( Format(now(), "mmdd") < Format( [Birthdate], "mmdd") )

Source: http://office.microsoft.com/en-us/access-help/calculating-age-from-a-birth-date-in-access-HA001055071.aspx