急：这样查询数据库为什么出错

[ssss7117]

数据库里面有日期 2011-1-1 2011-1-14

当我选择日期在2011-1-1到2011-1-11的时候显示的却是 2011-1-1 2011-1-14
正确的只有2011-1-1啊
这到底为什么啊
代码If cbofind.Text = "产品型号" Then findstr = "产品型号"
If cbofind.Text = "岗位" Then findstr = "岗位"
If cbofind.Text = "日期" Then findstr = "日期"
If cbofind.Text = "生产批次" Then findstr = "生产批次"
If cbofind.Text = "故障量" Then findstr = "故障量"
If cbofind.Text = "生产人员" Then findstr = "生产人员"
If cbofind.Text = "完成量" Then findstr = "完成量"
findListView.ListItems.Clear
Dim I As Integer
Dim obj As ListItem
If cbofind.Text <> "" Then
Call lianjie
Set rs = New ADODB.Recordset
strrs = "select * from 个人 where 日期 between #" & Format$(DTPicker1.Value, "yyyy-MM-dd ") & "#" & _
" And #" & Format$(DTPicker2.Value, "yyyy-MM-dd ") & "#"


rs.Open strrs, conn, adOpenKeyset, adLockPessimistic
I = 1
While Not rs.EOF
Set obj = findListView.ListItems.Add(I, "C" & rs("ID"), rs("日期"), , 1)
obj.ListSubItems.Add , "G" & rs("ID"), Trim("" & rs("岗位"))
obj.ListSubItems.Add , "f" & rs("ID"), Trim("" & rs("生产批次"))
obj.ListSubItems.Add , "H" & rs("ID"), Trim("" & rs("产品型号"))
obj.ListSubItems.Add , "I" & rs("ID"), Trim("" & rs("生产人员"))
obj.ListSubItems.Add , "D" & rs("ID"), Trim("" & rs("完成量"))
obj.ListSubItems.Add , "K" & rs("ID"), Trim("" & rs("故障量"))
obj.ListSubItems.Add , "E" & rs("ID"), Trim("" & rs("备注"))
I = I + 1
rs.MoveNext
Wend
rs.Close