是这样加吗？可是不行啊。

Dim strcn,cn,a,b,c,d
Dim is_SQL,rscom
Set cn=CreateObject("ADODB.Connection")
Set rscom=CreateObject("ADODB.Recordset")
a=HMIRuntime.Tags("text").Read
b=HMIRuntime.Tags("GONG").Read
c=HMIRuntime.Tags("text2").Read
d=Now()
strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_tai3_07_06_13_10_31_54R;Data Source=.\WINCC"
cn.ConnectionString=strcn
is_SQL ="insert into panpi(原料,长,宽，时间) VaLUES('"& A &"','"& B &"','"& C &"','"& D &"')"
cn.open
cn.Execute is_SQL
cn.close