' OleDbDataReader_Northwind_Customer_Country_Console.vb.txt
Imports System
Imports System.data
Imports db = System.Data.OleDb

Public Module MyModule
    Sub Main()
        NorthwindDataReader()
        Console.WriteLine("")
        Console.Write("Press enter key to continue...  ")
        Console.ReadLine()
    End Sub

    Private Sub NorthwindDataReader()
        Dim strSQL As String = "SELECT DISTINCT Country FROM [Customers] ORDER BY [Country]"
        Dim strMDB As String = "C:\TestData\Northwind.mdb"
        Dim strDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" + strMDB + ";"
        Console.Write("Connect String: " + strSQL)
        Console.WriteLine("")

        Dim cn As New db.OleDbConnection
        cn.ConnectionString = strDB

        Try

            Dim cmd As New db.OleDbCommand ' Setup Command
            cmd.CommandText = strSQL
            cmd.Connection = cn

            Dim dr As db.OleDbDataReader
            cn.Open()
            dr = cmd.ExecuteReader

            Do While dr.Read
                Console.WriteLine(dr.Item("Country"))
            Loop
            dr.Close()
            cn.Close()
        Catch ex As Exception
            Console.Write("Error: " + ex.Message.ToString)
        End Try
    End Sub
End Module