Imports System
Imports System.Data.OleDb

Class Hello
    Shared Sub Main()
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=hello.mdb;"
        Dim sqlStr As String = "SELECT 'Hello, ADO.NET World!' AS Message"

        Dim con As OleDbConnection = New OleDbConnection(conStr)
        Dim cmd As OleDbCommand = New OleDbCommand(sqlStr, con)
        con.Open()
        Dim reader As OleDbDataReader = 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