如下程序是WINCC 按钮触发以后，向SQL 数据库插入数据的例子程序，是从网上找的，请大家帮忙看看

如下代码 执行到 Set oRs =oCom.Execute 就不执行了，请大家帮忙看看！！

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                    
Dim sCon
 Dim ssql
 Dim oRs
 Dim conn
Dim oCom
Dim Con

Dim Data1, Data2 , Data3

'读取wincc变量
Data1=HMIRuntime.tags("编号").read
Data2=HMIRuntime.tags("姓名").read
Data3=HMIRuntime.tags("年龄").read
'连接数据库

Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=读写数据库;Data Source=DESKTOP-RU8UM4B\WINCC"
Set conn = CreateObject("ADODB.Connection")
 conn.ConnectionString = Con
conn.CursorLocation = 3
 conn.Open
'写入数据库

 ssql="insert into个人信息VALUES('" & Data1 & "','" & Data2&"','"&Data3&"');"

 Set oRs = CreateObject("ADODB.Recordset")

 Set oCom = CreateObject("ADODB.Command")
 
 Set oCom.ActiveConnection = conn

 oCom.CommandType = 1
 
 oCom.CommandText = ssql
 
 Set oRs =oCom.Execute   到了这一段就不执行了，请大家帮忙看看！
    msgbox "正确"
 Set oRs = Nothing
 conn.Close
 Set conn = Nothing
  
End Sub