对象'Refresh'的方法'IADODO'失败,大侠们帮解决下

Question

If Check1(0).Value = 1 And Check1(1).Value = 0 Then
  Adodc1.RecordSource = "select * from 销售信息表 where 销售信息表.日期 between '" + Str(DTPicker1.Value) + "'AND '" + Str(DTPicker2.Value) + "'"
  Adodc1.Refresh
  Adodc2.RecordSource = "select count(*)as lx,sum(数量)as 数量1,sum(金额)as 金额1 from 销售信息表 where 销售信息表.日期 between '" + Str(DTPicker1.Value) + "'AND '" + Str(DTPicker2.Value) + "'"
  Adodc2.Refresh
 End If
运行后提示:标准表达式中数据类型不匹配
Adodc1.Refresh出错:
对象'Refresh'的方法'IADODO'失败

Answer 1

修改"对象'Refresh'的方法'IADODO'失败"应该是"对象'Refresh'的方法'IAdodc失败"

Answer 2

数据库为ACCESS的话改成这样试试：
Adodc1.RecordSource = "select * from 销售信息表 where 销售信息表.日期 between # " & DTPicker1.Value & " # AND # " & DTPicker2.Value & "#"