...pushing it but I don't think it necessary for now, just the months are needed.
Would it go along the lines adding underneath date1
Dim date3= DateDiff("m", -varagemin, Now) - (date1*12)
Dim date4= DateDiff("m", -varagemax, Now) - (date2*12)
SQL = SELECT...... WHERE DOB BETWEEN date3 AND date4