adodc refresh

Question

Private Sub CMDSearch_Click()
     If Check1.Value = 1 Then
         Adodc1.RecordSource = "select * from 电力能耗表 where 日期 between '" & BeginDate.Value & "' and '" & EndDate.Value & "'"
         Adodc1.Refresh
     End If
End Sub
当按下按钮时，报错“标准表达式中的数据类型不匹配”，为什么？谢谢！

Answer 1

用的什么数据库？如果是ACCESS的话，BeginDate.Value 和 EndDate.Value 在数据库中是字符型还是日期型？ 如果是日期型的话，应该这么写：
Private Sub CMDSearch_Click()
     If Check1.Value = 1 Then
         Adodc1.RecordSource = "select * from 电力能耗表 where 日期 between ＃" & BeginDate.Value & "＃ and ＃" & EndDate.Value & "＃"
         Adodc1.Refresh
     End If
End Sub如果你用的是其他数据库的话。＃号可能要变一下。