通过全局动作写入自定义数据库的问题

Option Explicit
Function action
Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand
 MsgBox( "0")
strConnectionString = "Provider=MSDASQL;DSN=WINCC;UID=;PWD=;" 
'strConnectionString ="Driver={SQL Server};Server=WWW-8BED1D00196\WINCC;uid=;pass=;database=wincc"
lngValue = HMIRuntime.Tags("铺锦水闸外江水位1").Read
  MsgBox( "1") 
strSQL = "INSERT INTO watermsg (inwater) VALUES (" & lngValue & ");"  
  MsgBox( strSQL) 
Set objCnnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")
  MsgBox( "2") 
With objCommand

    .ActiveConnection = objConnection

    .CommandText = strSQL

End With
   MsgBox( "3") 
objCommand.Execute

Set objCommand = Nothing

objConnection.Close

Set objConnection = Nothing

   MsgBox( "good")   
End Function