ProgressDialogShow2("Inserting data...", False)
Starter.mysql.AddNonQueryToBatch("Insert into Activaciones values (?,?,?,?,?,?,?,?,?)", Array As Object(KeyTag, DateTime.Date (DateTime.now),Main.IdUsuario, Main.Nombre,Main.MacId,"A",0,20,0 ))
Dim SenderFilter As Object = Starter.mysql.ExecNonQueryBatch("SQL")
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean)
Log("NonQuery: " & Success)
ProgressDialogHide