Imports System
Imports MySql.Data.MySqlClient
 
Class Hello
    Shared Sub Main()
        Dim conStr As String = "server=localhost;user id=root;password=P@ssW0rd"
        Dim sqlStr As String = "SELECT 'Hello, Connector/NET World!' AS Message"
 
        Dim con As MySqlConnection = New MySqlConnection(conStr)
        Dim cmd As MySqlCommand = New MySqlCommand(sqlStr, con)
        con.Open()
        Dim reader As MySqlDataReader = cmd.ExecuteReader()
        While reader.Read()
            Console.WriteLine( reader.GetName(0) )
            Console.WriteLine( "---------------------" )
            Console.WriteLine( reader(0) )
        End While
        reader.Close()
        con.Close()
    End Sub
End Class