我的代码哪里错了？

[nancy_2500]

If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then
Adodc1.RecordSource = "select * from 项目信息 where 申报日期 between '" + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "' and '" + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "'"
Adodc1.Refresh
End If

这个代码老是出现说对象refresh方法的IACODC失败

[nancy_2500]

If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then
Adodc1.RecordSource = "select * from 项目信息 where 申报日期>= # " &DTPicker1.Value& " # and 申报日期<= #" &DTPicker2.Value&"# "
Adodc1.Refresh
End If
我改成这样还是错。说是缺少结束语句。这是为什么啊？？？？

[杀神者]

between Chr(35) + " + str(DTPicker1.Value) + "+ Chr(35) and Chr(35) +" + Str(DTPicker2.Value) + "+ Chr(35)"


where 申报日期>= # " & DTPicker1.Value & " # and 申报日期<= #" & DTPicker2.Value &"# "
&之间de 空格少了没有

[threenewbee]

If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then
Adodc1.RecordSource = "select * from 项目信息 where 申报日期>= # " & DTPicker1.Value & " # and 申报日期<= #" & DTPicker2.Value & "# "

[nancy_2500]

O(∩_∩)O谢谢，我昨天晚上弄出来了，因为之前把数据类型给改了，不能用DTPicker了。