VB如何按照时间段查询数据库内的数据，内有代码，请更正一下！！

我用下面这一段代码查询我的数据库

Private Sub Command1_Click()
yybs = Left(Format(DTPicker2.Value, "short date"), 4) _
           + Right(Left(Format(DTPicker2.Value, "short date"), 7), 2) _
           + Right(Format(DTPicker2.Value, "short date"), 2)
yybz = Left(Format(DTPicker2.Value, "short date"), 4) _
           + Right(Left(Format(DTPicker2.Value, "short date"), 7), 2) _
           + Right(Format(DTPicker2.Value, "short date"), 2)
           If Val(yybs) > Val(yybz) Then
           MsgBox "开始时间不能超过截至时间", , "信息提示"
           DTPicker2.SetFocus
           Exit Sub
           End If
           Adodc1.RecordSource = "select*from 营业表 where 日期 between'" _
                            + Str(DTPicker1.Value) + "'and'" _
                            + Str(DTPicker2.Value) + "'order by 日期"
           Adodc1.Refresh
           Set MSHFlexGrid1.DataSource = Adodc1
End Sub



这个是按时间段查询的一个代码  出现了一个严重的问题
比如我查8月1到8月14
出现的就是8月1和8月10以后的数据
8月2到8月9的数据查询不到！！