wincc往MYSQL里写数据_WINCC向SQL数据库写数据

我正在做一个项目，外部模拟量采集后，计算一个小时的累积量，然后在存入用户归档，进行写入SQL数据时。数据写不进去，也没报错，搞不清楚，希望哪位专家指点一下！

下面是代码

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim sCON,sSql,oRS,conn,oCom,Con

Dim sPro,sDsn,sSer

Dim Data1,Data2,Data3

Dim sDate

Data1 = HMIRuntime.Tags("TestTag01").Read

Data2 = HMIRuntime.Tags("TestTag02").Read

Data3 = HMIRuntime.Tags("TestTag03").Read

sDate = Now

sPro = "Provider = WinCCOLEDBProvider.1;"

sDsn = "Catalog = CC_test_18_09_25_21_21_37R;"

sSer = "Data Source =.\WinCC"

sCON = sPro+sDsn+sSer

Set conn = CreateObiect("ADODB.Connection")

conn.ConnectionString = sCON

conn.CursorLocation =3

conn.Open

sSql= "insert into UA#MBaoBiao(sDate,Data1,Data2,Data3)VALUES('"&sDate&"','"&Data1.Value&"','"&Data2.Value&"','"&Data3.Value&"')"

Set oRs= CreateObiect("ADODB.Recordset")

Set oCom= CreateObiect("ADODB.Command")

Set oCom.ActiveConnection=conn

oCom.CommandType=1

oCom.CommandText=sSql

Set oRs= oCom.Execute

Set oRs= Nothing

conn.Close

Set conn=Nothing

End Sub