DataSet对象是6.0SP3之后出来的新东西(不知道准确不，反正6.0SP1是没有)，可以用来在不同VBS之间传递数据。一开始以为只能传递数值，没想到还能传递对象，^_^。
在起始画面的OpenPicture事件中进行初始化工作：
Dim Conn,rs
Set Conn=CreateObject("ADODB.Connection")
Conn.Open "Test"
Set rs=CreateObject("ADODB.RecordSet")
HMIRuntime.DataSet.Add "Conn",Conn
HMIRuntime.DataSet.Add "rs",rs
运行后Conn以及rs就成为了全局对象，在任意画面的VBS脚本都可以对它进行访问了。
Dim Conn,rs
Set Conn=HMIRuntime.DataSet("Conn").Value
Set rs=HMIRuntime.DataSet("rs").Value
On Error Resume Next
rs.close
rs.open "SELECT * FROM USERNAME",Conn,1,1
rs.MoveFirst
MsgBox rs("UserName")
