Function action
Dim database
Dim strcn,cn
Dim is_SQL
Dim riqi
Dim WenDu,YaLi,PH,SuDu,ShiDu
Dim DateTime

riqi=Now
Set database= HMIRuntime.Tags("@DatasourceNameRT")
database.Read
Set WenDu= HMIRuntime.Tags("WenDu")
WenDu.Read
Set YaLi= HMIRuntime.Tags("YaLi")
YaLi.Read
Set PH= HMIRuntime.Tags("PH")
PH.Read
Set SuDu= HMIRuntime.Tags("SuDu")
SuDu.Read
Set ShiDu= HMIRuntime.Tags("ShiDu")
ShiDu.Read

strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="& database.Value &";Data Source=.\wincc"
Set cn=CreateObject("ADODB.connection")
cn.connectionString=strcn
cn.Open



is_SQL="insert into ribao(riqi,WenDu,YaLi,PH,SuDu,ShiDu) Values('"& riqi &"','"&WenDu.Value &"','"&YaLi.Value &"','"&PH.Value &"','"&SuDu.Value &"','"&ShiDu.Value &"')"

'cn.Execute is_SQL 'MsgBox "该句总是不执行。。。

'MsgBox "数据已成功记录2"
cn.Close
'MsgBox "数据已成功记录2"


上面是小弟写的VBS脚本，实现向数据库插入数据的功能。
该段代码在wincc 6.0 里面可以正常运行，但复制在 7.0里面后，就不能正常执行，经过测试，总是cn.Execute is_SQL 不能正常执行。。。
请大侠们看看，具体原因是什么啊，该怎么解决。。。。

另外，激活项目之前，是否还得提前建立一个数据库ribao啊。。。

运行环境: wincc V7.0 sp2 亚洲版 电脑环境：win7 旗舰版 64 位