求救【在vb中，自动计算年份然后弹出一个对话框提醒如何操作？】

做的是一个简单的人事档案管理信息系统，
现在想在里面加两个模块。。一个是员工生日的时候 到了那个日期 自动弹出一个提醒的对话框
                          一个是可以计算员工的年龄，大于某个年龄时 提前一段时间蹦出一个对话框 提醒该人即将退休

数据库用得是access 
求骨灰级人物 帮忙小菜鸟解决疑问。。今天在线等 --------------------编程问答-------------------- 代码加到主界面form_load 或其它地方
select * from yuangong where month(getdate())=month(birthday) and day(getdate())=day(birthday) 检索出过生日  （按公历，2月29日另外考虑）
select * from yuangong where datediff(m,getdate(),birthday)>714 检索出退休
714个月，60岁提前半年。
birthday 存储的是出生年月日
详细的需要自己调试修改 --------------------编程问答-------------------- 弹出的对话框，简单点的可以是msgbox+信息,或者自己专门做一个。。。

补充：VB ,  基础类