WinCC变量实时写入Access

大家好，我想把WinCC中的一个变量(NewTag)实时写入Access中，不知如何实现，还请指教。
我现在的做法是在全局脚本的动作中写了一段VBS如下,可是Access中未更新数据，不知道是何原因？
Function action

Dim objConnection

Dim objRecordset

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

strConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\WinCC.accdb"

lngValue = HMIRuntime.Tags("NewTag").Read

strSQL = "INSERT INTO WinCC_Data (Value1) VALUES (" & lngValue & ");"  

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strSQL

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing

End Function

自己顶一下，期待达人出现