用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号的数据
请问应如何修改

如何加上一天呢？