vb mysql连接无效

Imports MySql.Data.MySqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=myServerAddress;Port=3306;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"
        Dim connection As New MySqlConnection(connectionString)

        Try
            connection.Open()
            Console.WriteLine("Connected to the database!")

            Dim command As New MySqlCommand("SELECT * FROM myTable", connection)
            Dim reader As MySqlDataReader = command.ExecuteReader()

            While reader.Read()
                Console.WriteLine(reader.GetString(0))
            End While

            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module