VB.Net by API/System.Data.OleDb/OleDbDataReader

OleDbDataReader.Item

  
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Public Module UsingStatement
   Public Sub Main()
      Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NorthWind.mdb")
      Dim cmd As New OleDbCommand
      Dim dr As OleDbDataReader
      Using conn
         conn.Open
         cmd.rumandText = "Select * From Customers"
         cmd.rumandType = CommandType.Text
         cmd.Connection = conn
         dr = cmd.ExecuteReader()
         If dr.HasRows Then
            Do While dr.Read()
               " Get first and last name of customer
               Console.WriteLine(CStr(dr.Item(1)) & " " & CStr(dr.Item(2)))
            Loop
         Else
            Console.WriteLine("The table has no rows.")
         End If
      End Using
   End Sub
End Module