按时间查询是对的！下面的按时间段查询 这样写对吗？该怎么处理

按时间查询是对的！下面的按时间段查询 这样写对吗？
'按时间查询
  Date1 = Format(DTPicker1, "yyyy-mm-dd")
  Date2 = DateAdd("d", 1, Date1)
  sql = "select * from GuestInfo where 来访时间>#" & date1 & "# and 来访时间<#" & date2 & "#"
  rs.Open sql, cn, adOpenStatic, adLockOptimistic


'按时间段查询
  Date1 = Format(DTPicker1, "yyyy-mm-dd")
  Date2 = DateAdd("d", 1, Date1)
  date3 = Format(DTPicker2, "yyyy-mm-dd")
  date4 = DateAdd("d", 1, date3)
   
 sql = "select * from GuestInfo where between "来访时间>#" & date1 & "# and 来访时间<#" & date2 & "#" and "来访时间>#" & date3 & "# and 来访时间<#" & date4 & "#""
  rs.Open sql, cn, adOpenStatic, adLockOptimistic

按时间查询是对的！下面的按时间段查询 这样写对吗？

[解决办法]

VB.NET code

"yyyy-mm-dd"应该为"yyyy-MM-dd"
[解决办法]
楼主，应该运行下，看看行不行。
如果有错误，写出来和大家交流。

[解决办法]
http://topic.csdn.net/u/20120211/12/6717a175-ccfe-4bce-b7b7-5ee250c04a21.html求助