我想通过wincc vbs 编写一段代码，将sql普通库中的值赋给wincc的内部变量，初次尝试编写了下面的代码：
Dim objTag
Dim a
Dim conn
Dim Strsql
Set conn = CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=false; Initial Catalog=abc; Data Source=.\WinCC"
strSQL="select 。。。。 " //该selec语句在sql里面运行正常，得到的值是451
set a=conn.Execute strSQL
set objTag= HMIRuntime.Tags("Tag1")
objTag.write a
数据库连接是正常的，但是这个程序运行后，不能实现将451赋值给tag1，，，实在是新手啊，请大侠们给我指点一下。