Option Explicit
Function action

Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con

Dim Data1, Data2, Data3, Data4

Dim strcn, cn, is_sql
'Dim real1,real2,real3,real4

Data1 = HMIRuntime.Tags("NewTag_1").Read
Data2 = HMIRuntime.Tags("NewTag_2").Read
Data3 = HMIRuntime.Tags("NewTag_3").Read
Data4 = HMIRuntime.Tags("NewTag_4").Read
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=.\WINCC"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql="insert into Table VALUES('"&Data1 &"','" &Data2 &"','"&Data3&"');"
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
'MsgBox oCom.CommandText
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing

End Function