机房收费系统之收取金额查询（TPicker控件时间段取值、SQL语句中单引号与双引号区别）

        收取金额查询窗体较组合查询而言就是小菜一碟，但即便是内容较少也有其精华之处，现在分享一下我的学习过程吧^_^

一、收取金额查询窗体的流程图：

二、问题集

这是什么错误呢，为什么会出现这个类型的错误？

产生此问题的代码部分是什么样子的呢？

以下为问题代码：

    txtSQL = "select * from Recharge_Info where date > " & begindate.Value & "   and  date< " & enddate.Value & ""
    Set mrc = ExecuteSQL(txtSQL, MsgText)

 你能看出问题出在哪里么？

正确代码如下：

    txtSQL = "select * from Recharge_Info where date > '" & begindate.Value & "'   and  date< '" & enddate.Value & "'"
    Set mrc = ExecuteSQ