wincc 写值到SQL数据库 ，不知道那有错误了，请指点下，谢谢！

Dim LngValue
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim data1

data1=HMIRuntime.Tags("q2").read
'读取触摸屏变量值

StrConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=winccku;Data Source=XX-PC\WINCC"
'连接到数据库， “ winccku ”是数据库名称，“XX-PC\WINCC”是数据库服务器

Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = StrConnectionString
objConnection.Open

StrSQL =" UPDATE biao Set nianling = '"& data1 &"' WHERE xingming='xiao' "
'UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值 ；Update 语句用于修改表中的数据。

Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute

Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing