做了一个odbc数据源SampleDSN,用vbs将wincc中的变量写到Access数据库的表里，可是做了个脚本却没写成功，TagValue是Access表中的列名，帮忙看看这几句有什么问题？我感觉好像插入语句写得有问题，但不确定。帮帮忙拉！！
Sub OnClick(ByVal Item)
Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"

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

strSQL = "INSERT INTO WINCC_DATA (TagValue) VALUE (" & lngValue & ");"

HMIRuntime.Trace "strSQL"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

With objCommand

.ActiveConnection = objConnection

.CommandText = strSQL

End With

objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing

End Sub