接着更新，今天更新两个 问题点，  1.  是日期时间控件问题 。 2.  Recorderset.recordcount 和  Recorderset里得到某一列求和问题。

简单的说下第一点，  时间日期空间，   vb6.0 安装后，这个控件是有的， 但如果直接安装控件 我没找到。如下图。

控件功能是实现 年月日时分秒选择或者输入。

我需要的时间是年月日时分秒， 设置参数可以得到  日期  或者 时间，或者 日期时间

vbs脚本如下， load时载入，

Sub LoadDateTime()

Dim datetime , DTPicker1

Set DTPicker1 = ScreenItems("DTPicker_1")

DTPicker1.Format   =   "dtpCustom" 

DTPicker1.CustomFormat   =   "yyyy/MM/dd HH:mm:ss" 

datetime  =  DTPicker1.Value

datetime=FormatDateTime(datetime,0)

End Sub

上面这段话设置了DTPicker的属性， 以及把值传给 vbs脚本变量。这个控件是可有可无的，只是方便用户