Private Sub DoCommand()
  Dim conString as String = string.Format(
            "Data Source={0};Port={1};Initial Catalog={2};User ID={3};PWD=" & _
              "{4};Use Compression={5}", 
            My.Settings.MySQL_ServerIP,
            My.Settings.MySQL_Serverport,
            My.Settings.MySQL_ServerDatabase,
            My.Settings.MySQL_ServerUser,
            My.Settings.MySQL_ServerPassword,
            My.Settings.MySQL_UseCompression)
 
            Using conn8 As New MySqlConnection( conString )
              conn8.Open()
              Dim com8 As New MySqlCommand(Command, conn8)
              Dim i As Integer = com8.ExecuteNonQuery()
            End Using
        End Sub