Dim strCon,strSQL
Dim objCon,objCommand,objRecordset,lngCount,lngValue
Dim pici
PiCi = HMIRuntime.Tags("demo_2").Read
HMIRuntime.Tags("demo_2").Write PiCi
CStr(PiCi)
strCon="DRIVER={SQL server};SERVER=.\WinCC;DATABASE=SPC_SQL;UID=sa;PWD=123456;"
strSQL="insert into demo values ('"&pici&"','11111');"
Set objCon=CreateObject("ADODB.Connection")
objCon.ConnectionString = strCon
objCon.Open
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objCon
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute


还是不行，不知代码有没问题！！