VB.Net by API/System.Data.OleDb/OleDbDataReader
OleDbDataReader.Item
<source lang="vbnet"> 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
</source>