dim SQL as String
dim rs As Recordset
SQL = "SELECT datediff('yyyy',誕生日フィールド,Now) FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)
年齢を求めるには今の日付から、誕生日を引きます。
例えば、誕生日フィールドが2007/03/05、今日が2007/10/27 の場合、31が返ります。
又、特定の日付時点での年齢を計算したい場合は、Nowを日付フィールドにしてください。
Excelで年齢早見表を作るのもいいかも。