机房之收取金额查询
金额查询涉及到日历，VB6.0的工具栏中是没有这个控价的，于是我们要到工程里面找
方法如下：工程---部件---控件----“Microsoft Windows common controls 26.0”---应用---确定
加载后的图形显示：
思路：
代码部分：
知识点：
这里有一点感觉很重要，就是连接、查询语句
txtSQL = "select * from ReCharge_Info where date>='" & DTPicker1.value & "' and date <= '" & DTPicker2.value & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
意思是连接Recharge表后查询起始与终止之间的时间