Sub procedure6
Dim sCon,sSql,oRs,conn,oCom,Con
Dim data1,data2,data3,data4
data1=HMIRuntime.tags("jizu").read
data2=HMIRuntime.tags("guolu").read
 Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=312ok;Data Source=SYGC\WINCC"
Set conn = CreateObject("ADODB.Connection")
 conn.ConnectionString = Con
conn.CursorLocation = 3
 conn.Open
 sSql="delete FROM okokok WHERE  jizu='"&data1&"'and guolu='"&data2&"';"

 Set oRs = CreateObject("ADODB.Recordset")

 Set oCom = CreateObject("ADODB.Command")

 Set oCom.ActiveConnection = conn

 oCom.CommandType = 1
 oCom.CommandText = sSql
 Set oRs = oCom.Execute
 Set oRs = Nothing

Data1=HMIRuntime.tags("jizu").read
Data2=HMIRuntime.tags("huolu").read
Data3=HMIRuntime.tags("wendu").read
Data4=HMIRuntime.tags("yali").read

 sSql="insert into okokok VALUES('"&Data1&"','"&Data2&"','"&Data3&"','"&Data4&"');"
 Set oRs = CreateObject("ADODB.Recordset")
 Set oCom = CreateObject("ADODB.Command")
 Set oCom.ActiveConnection = conn
 oCom.CommandType = 1
 oCom.CommandText = sSql
 Set oRs = oCom.Execute
 Set oRs = Nothing

 conn.Close
 Set conn = Nothing

MsgBox"数据修改成功"
End Sub

我把变量存放在内部变量里，运行的时候没有问题，但是放在plc里，就读取不来，各位大神帮帮我