请指导（时间段的查询）

用DTPicker1，DTPicker2，查询时间段的数据，我是这样写的，但不成功，请问错在哪？
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Adodc1.RecordSource = "select * from AdviceListView  where exectime>'" & Trim(DTPicker1.Value) & "' and exectime<'" & Trim(DTPicker2.Value) & "'"
Adodc1.Refresh
End Sub

已解决部分，我是这样写：
Private Sub Command1_Click()
Dim sql As String  '声明变量，用来保存SQL语句字符串
  '读取此时间内的所有病人信息
  sql = "select * from AdviceListView  where exectime>'" & Trim(DTPicker1.Value) & "' and exectime<'" & Trim(DTPicker2.Value) & "'"
  With Adodc1
  .RecordSource = sql
  .Refresh
  End With
End Sub

Private Sub DataGrid1_Click()
DTPicker1.Value = Format(Now(), "yyyy-mm-dd  tttt")

End Sub

Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
DTPicker2.Value = Format(Now(), "yyyy-mm-dd  tttt")
End Sub
但同时又有个问题，如2008-5-12到2008-5-25 只能查到2008-5-24号的数据
请问应如何修改

怎么不用<=呢?
或者你干脆再加上一天啊

如何加上一天呢？

如果你的时间精确到了小时或小时以上,那就得加上一天
比如你要查询2008-04-01到2008-04-30 的所有数据,其实也就是查询从2008-04-01到2008-05-01之前的所有数,所以要加上一天 不知道你能不能懂我说的

另外  fomat里  tttt是什么用的?