Maybe this can help. I dont use MySQL but I believe the commands are similar to SQL

Dim TableName, Uname, DBPassword, DataBaseName, SQLServer
Dim HR, MIN, SEC, DY, MNTH, YR
Dim PLCCurrentDateTime
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim str1,str2
Dim strSQL
Dim objCommand
' Change These Variables To Write To The Desired Sql Server And DataBase
TableName = "PROCESS_DATA"
Uname = "sa"
DBPassword = "PASSWORD"
DataBaseName = "WINCC_DATA"
SQLServer = "WINCC_SERVER1\WINCC"
'CREATE a GROUP TO READ THE TAGS
Dim VGrp
Set VGrp = HMIRuntime.Tags.CreateTagSet
VGrp.Add "TAG1"
VGrp.Add "TAG2"
VGrp.Add "TAG3"
VGrp.Add "TAG4"

VGrp.Read

DY = "03"
MNTH = "09"
YR = "2007"
HR = "14"
MIN = "29"
SEC = "22"

PLCCurrentDateTime = YR & "-" & MNTH & "-" & DY & " " & HR & ":" & MIN & ":" & SEC

'-------------------------------------------------------------------
' Write The Data To the SQL Database

strConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & Uname & ";Pwd=" & DBPassword & ";Initial Catalog=" & DataBaseName & ";Data Source=" & SQLServer & ""

str1 = " (D_DATE, TAG1,TAG2,TAG3,TAG4)"

str2 = " Values('" & PLCCurrentDateTime & "', " & _
"'" & Round(VGrp("TAG1").Value,2) & "'," & _
"'" & Round(VGrp("TAG2").Value,2) & "'," & _
"'" & Round(VGrp("TAG3").Value,2) & "'," & _
"'" & Round(VGrp("TAG4").Value,2) & "') "

strSQL = "INSERT INTO " & TableName & str1 & str2
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