★VB连接Access数据库，如何以时间为筛选条件进行select？？（详情请点击）

Question

我用VB连接Access2000数据库库中有个表叫UserID表中有个“时间”型的字段叫UserTime请问如何写这个select语句，显示为当前时间后30秒的数据如：
ID   UserTime
1    2004-10-06 12:12:14
2    2004-10-06 12:12:54
3    2004-10-06 12:12:55
4    2004-10-06 12:12:10
5    2004-10-06 12:12:04当前Now（）时间为    2004-10-06 12:12:56
显示内容为    2004-10-06 12:12:26～    2004-10-06 12:12:56 这30秒的数据
请问这个select语句怎么写？？

Answer 1

Dim a As Date
Dim b As Date
a = #10/6/2004 12:12:26 PM#
b = #10/6/2004 12:12:56 PM#
"select * from tablename where UserTime>=#" & a & "# and UserTime<=#" & a & "#"

Answer 2

dim strsql as stringstrsql="select * from tablename where UserTime between cdate(" & now() & ") and cdate(" & dateadd("s",30,now()) & ")"