问题地址
http://www.ad.siemens.com.cn/service/answer/solution.aspx?Q_ID=76585&cid=1032
由于找答案状态置为OK了，我找半天也没找到能回复的地方，只好在这里发帖了。希望ccd958能看见

对于这个问题，可以设置三个简单的按钮来解决。
按钮1为获得起始时间
按钮2为获得终止时间
由于是三个独立的按钮，这里暂且用变量来保存住选取的值。
把起始时间保存在变量“起始时间”里
把终止时间保存在变量“终止时间”里
这两个变量类型都为8为字符集

操作步骤，在控件中选择好起始时间，按按钮1，再选终止时间，按按钮2
然后按按钮3，即可查到数据。
从操作步骤上讲，这种方案还可以优化，可以用另外的形式得到起始和终止时间值。

vbs如下
按钮1
Dim gettime
Dim name
Set name = ScreenItems("calendar")
gettime = name.value
HMIRuntime.Tags ("起始时间").Write CStr(gettime)
MsgBox "起始时间选择为"& HMIRuntime.Tags ("起始时间").Read

按钮2
Dim gettime
Dim name
Set name = ScreenItems("calendar")
gettime = name.value
HMIRuntime.Tags ("终止时间").Write CStr(gettime)
MsgBox "终止时间选择为"& HMIRuntime.Tags ("终止时间").Read


按钮3为查询按钮，这里只说查询的代码，ADO的链接与释放照原来做。
查询之后结果返回到数据集中，你可以随便用。
这里注意sql的赋值即可
Dim start
Dim stoptime
start = HMIRuntime.Tags ("起始时间").Read
stoptime = HMIRuntime.Tags ("终止时间").Read
Dim sql
sql = "select inTime from main where inTime between '"&CStr(start)&"'and'"&CStr(stoptime)&"'"

再就是建议你看看数据库相关内容，sql语言之类的，系统地看看，不能总写代码给你呀，我也不知道你得具体情况。
ADO可以看本《ADO编程技术》David Sceppa写的，清华出版社出的。

正好我的项目也是用到时间的查询之类的，有好的方案也希望看帖的工程师们分享一下。