[求助]查询任意时段的收入明细

求高手指点下面的代码该如何修改：
Private Sub cmd时段收入明细_Click()
Label2.Caption = "从" & Text1.Text & "到" & Text2.Text & "时段收入明细"
Data1.RecordSource = "select * from 收入明细 where 日期 between like '" & Trim(Text1.Text) & "' and like '" & Trim(Text2.Text) & "'"
Data1.Refresh
End Sub

说明：上面的代码目的是要查询任意时段的收入明细，分别用2个输入框Text1 和Text2输入所要查询的时间区间，
比如在Text1中输入2007-1-2，在Text2中输入2007-1-11，运行代码时，提示：

实时错误'3075'
语法错误(操作符丢失)在查询表达式'日期 between like '2007-1-2' and like '2007-1-11''中。

不知代码毛病在哪，求高手指点。谢谢！

日期要用#括起来

怎么试都不行呀，能给出具体代码吗？
谢谢！

Data1.RecordSource = "select * from 收入明细 where 日期 between '#" & Trim(Text1.Text) & "#' and '#" & Trim(Text2.Text) & "#'"

Data1.RecordSource = "select * from 收入明细 where 日期 between like #'" & Trim(Text1.Text) & "'# and like #'" & Trim(Text2.Text) & "'#"

问题已经解决，谢谢huangwy的帮助！
代码如下：
Private Sub cmd时段收入明细_Click()
Label2.Caption = "从" & Text1.Text & "到" & Text2.Text & "时段收入明细"
Data1.RecordSource = "select * from 收入明细 where 日期 between #" & Trim(Text1.Text) & "# and #" & Trim(Text2.Text) & "# order by 日期 "
Data1.Refresh
End Sub

就因为几个符号颠来倒去、加加减减搞了一天多。幸好huangwy的代码帮了很大的忙，去掉其中的几个 ' 就成功了。

再次对huangwy表示感谢！

版主Kendy123456的代码起了关键作用，在此表示感谢！
谢谢大家的无私帮助！

建议用ado.

用ado的话要把MSFlexGrid换成MSHFlexGrid。好象代码比用data还要多。我有时候喜欢用data，有时喜欢用ado，在涉及到查询的时候，我常常喜欢data，觉得它的代码更简单，可能是我的水平比较低的缘故。
谢谢你的建议。我想我慢慢会喜欢上ado的。