程序中使用日期变量dt1 和 dt2获取DTPicker1.Value和 DTPicker2.Value，然后用这两个日期变量作为条件where 的参数对表中时间段查询记录。
但运行后，指出'" # dt1 # "' and '"# dt2 # "'语句错误，请教老师指教。
Dim dt1 As Date
Dim dt2 As Date
dt1 = DTPicker1.Value
dt2 = DTPicker2.Value
strselect1 = "SELECT 顾客姓名,费用 FROM 流水记录 where 日期 between '" # dt1 # "' and '"# dt2 # "'"

注明：我的数据库时access，上述语句where 日期 between '" # dt1 # "' and '"# dt2 # "'中的变量dt1，dt2如果换成具体的日期，比如2018/2/1，则运行成功，但是带入此变量就语法错误

[此贴子已经被作者于2018-2-1 10:25编辑过]

见示例：SELECT * FROM 表明 WHERE 日期字段名 BETWEEN CONVERT(datetime,'2013-01-01',120) AND CONVERT(datetime,'2013-01-30',120)
你的字符串连接符是#？

回复版主，access中用#，不是用+。 我需要用日期变量dt1,dt2 获取DTpicker选择的日期，然后在WHERE条件中用这两个变量查询记录

[此贴子已经被作者于2018-2-1 11:08编辑过]

举个例子,不知能否帮助到你。
Dim tj As String
Dim strSql As String
tj = "卡洛修斯"
strSql = "Select * from 表1 where 名字叫='" & tj & "'"

或者这个：

sql语句中如何引用vb中的日期型变量

: 我想实现查询今日的记录
: 用data1.recordsource="select * from 表1 where 日期 between #99-3-28# a
: nd #99-3-29#"
: 可以实现
:    .......

把日期型变量转换成字符串不就得了:
sqlstatment="Select * From table1 where field1 between #" & cstring(va
rDate1) & "#" "and #" & cstring(varDate2) & "#"
data1.recordsource=sqlstatment

如果你的数据库为access就用：
strsql = "select * from invoice where qtime between #" & dtpicker1.Value & "# and #" & dtpicker2.Value & "#"
adodc1.RecordSource = strsql
adodc1.Refresh

数据库为SQL Server:
strsql = "select * from invoice where qtime between '" & dtpicker1.Value & "' and '" & dtpicker2.Value & "'"
adodc1.RecordSource = strsql
adodc1.Refresh

那你的语句是VB么？ 你自己看这个语句VB认不认？

按照您给的方法运行成功了！是直接带入DTPicker.Value作为查询条件。同时也可以把日期变量dt1,2替换DTPicker.Value。太好了。就是格式的问题。