CONEXAO MYSQL COM SERVIDOR NA INTERNET - ERRO

 Imports MySql.Data.MySqlClient

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim conn As New MySqlConnection
    Dim myCommand As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter
    Dim myData As New DataTable
    Dim SQL As String

#Region [Ô] Windows Form Designer generated code [Ô]

    Public Sub New()
        MyBase.New()

        [ô]This call is required by the Windows Form Designer.
        InitializeComponent()

        [ô]Add any initialization after the InitializeComponent() call

    End Sub

    [ô]Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    [ô]Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    [ô]NOTE: The following procedure is required by the Windows Form Designer
    [ô]It can be modified using the Windows Form Designer.  
    [ô]Do not modify it using the code editor.
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        [ô]
        [ô]DataGrid1
        [ô]
        Me.DataGrid1.DataMember = [Ô][Ô]
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(8, 8)
        Me.DataGrid1.Name = [Ô]DataGrid1[Ô]
        Me.DataGrid1.Size = New System.Drawing.Size(576, 248)
        Me.DataGrid1.TabIndex = 0
        [ô]
        [ô]Form1
        [ô]
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(592, 270)
        Me.Controls.Add(Me.DataGrid1)
        Me.Name = [Ô]Form1[Ô]
        Me.Text = [Ô]Acessando o MySQL[Ô]
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = [Ô]server=212.1.215.39;user id=cancecas_ADMIN;password=1Q2W3E4R;database=cancecas_TESTE;port=2089[Ô]
        SQL = [Ô]SELECT * FROM cancecas_TESTE.Employees[Ô]
        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = SQL

                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)

                DataGrid1.DataSource = myData
                [ô]                DataGrid1.AutoSizeColumns(DataGridViewAutoSizeColumnCriteria.HeaderAndDisplayedRows)
            Catch myerror As MySqlException
                MsgBox([Ô]There was an error reading from the database: [Ô] & myerror.Message)
            End Try
            MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show([Ô]Erro ao conectar com o Banco de dados : [Ô] & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub
   
End Class