事情是这样的,在下VB小菜鸟,现在有个数据表medicine,存储各种药品信息,关键字有yxqz(有效期至) 主键mph(药品批号) 
我想实现一个功能:按一下按钮,将表中7天以内即将过期的药品信息通过adodc控件和DateGrid控件显示出来 
我曾经试过将表中数据全部导入数组逐个进行比较,再将满足条件的yxqz赋值到另外个数组,再逐个查询显示。 
过程中遇到很大问题,第一个就是数据格式问题,改了N遍,在查询数据库的时候老是数据类型不匹配,另外其实我也不知道我想的这个办法能不能实现 
希望哪位大哥能够帮我写个代码,毕业设计需要,万分感谢啊,或者能够给我提供点设计思路也好··再次感谢啊···
数据库是用access的,yxqz是日期格式的,有几位哥哥说用select * from medicine where datediff('d',yxqz,date()) <=7  这个语句能解决··
我试了下,语法是已经没有错误了,不过好像结果是错的,因为VB里面用短日期格式相减是会出错的,于是我就改成了
select * from medicine where datediff('d',format(yxqz,"yyyy-mm-dd"),date()) <=7
结果老是提示说缺少结束语句,哪位大哥能帮帮忙····感激不尽····