Private Sub DoCommand()
            Dim conn8 As MySqlConnection
            conn8 = New MySqlConnection( _
            "Data Source=" & My.Settings.MySQL_ServerIP.ToString & ";" & _
            "Port=" & My.Settings.MySQL_Serverport & ";" + _
            "Initial Catalog=" & My.Settings.MySQL_ServerDatabase.ToString & _
            ";" + _
            "User ID=" & My.Settings.MySQL_ServerUser.ToString & ";PWD=" & _
            My.Settings.MySQL_ServerPassword.ToString & _
            ";Use Compression=" & My.Settings.MySQL_UseCompression)
            Dim com8 As New MySqlCommand(Command, conn8)
            Command = Nothing
            conn8.Open()
            Dim i As Integer = com8.ExecuteNonQuery()
            com8.Dispose()
            conn8.Close()
            conn8.Dispose()
        End Sub