如何定义日期类型数据？
rs.open "select * from 表 where 日期（字段名）=系统的今天的日期（不含时刻）"： rs.open "select * from 表 where 日期='" & Date & "'" rs.open "select * from 表 where 时间（字段名）=系统的当前时刻减十五分钟"： “系统的当前时刻减十五分钟”定义三个变量，分别存储小时、分钟、秒数，在Time函数中，取出它们，在分钟中减去15，在判断分钟变量是否小于0，如果小于0，必须配置小时变量，最后生成新的时间，比如XTine rs.open "select * from 表 where 时间='" & XTine & "'" 注意：在Access数据库上面的语句可能有问题。
