' Visual Basic .NET 代码。
' 控制台应用程序。
' 引用：
' System
' System.Data
' System.XML

Imports System.Data.OleDb ' 用于 OleDb 对象。
Imports Microsoft.VisualBasic.ControlChars ' 用于 CrLf 常量。

Module Module1

Sub Main()

' 创建并初始化 OleDbConnection、OleDbCommand
' 和 OleDbDataReader 对象。
Dim objConn As New _
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"User ID=Admin;" & _
"Data Source=C:\Program Files\Microsoft" & _
"Office\Office10\Samples\Northwind.mdb")

objConn.Open()

' 执行命令并将数据读取器附加到
' 所选数据。
Dim objCmd As New OleDbCommand("SELECT * FROM Products", _
objConn)
Dim objReader As OleDbDataReader = objCmd.ExecuteReader

' 读取数据并列出值。
Call ReadData(objReader)

End Sub

Public Sub ReadData(ByVal objReader As OleDbDataReader)

' 目的：列出给定数据读取器的数据值。
' 接受：objReader - 数据读取器。

Dim intField As Integer ' 行中的当前字段。
Dim intColumn As Integer ' 当前列的名称。
Dim blnColumns As Boolean = False ' 列名称是否已
' 列出。

With objReader

' 一次读取一行，直至文件末尾。
Do While .Read = True

For intField = 0 To .FieldCount - 1

' 首先列出列名称。
If blnColumns = False Then

For intColumn = 0 To .FieldCount - 1

If intColumn = .FieldCount - 1 Then
Console.Write(.GetName(intColumn) & _
CrLf)
Else
Console.Write(.GetName(intColumn) & _
", ")
End If

Next intColumn

' 只列出一次列名称。
blnColumns = True

End If

' 列出当前行中每个字段的值。
If intField = .FieldCount - 1 Then
Console.Write(.Item(intField) & CrLf)
Else
Console.Write(.Item(intField) & ", ")
End If

Next intField

Loop

End With

' 暂停，以便用户在控制台窗口中查看数据。
Console.Write("按任意键继续...")
Console.Read()

End Sub

End Module

下面是该代码的工作方式：

正如前面的代码示例所示，Imports 代码（例如，Imports System.Data.OleDb）有助于减少访问对象或对象的成员时所需的工作量。类似地，对 OleDbConnection、OleDbCommand 和 OleDbDataReader 对象进行声明和初始化，以分别代表连接、数据记录和记录游标。此代码的真正核心是 ReadData 子例程。
Do 循环使用 OleDbDataReader 对象的 Read 方法一次读取一行数据，直到该方法返回 False（表示已没有其他数据可读取）。
OleDbDataReader 对象的 FieldCount 属性返回数据行中数据字段（列）的数目。如果是第一行数据，则在列上调用 OleDbDataReader 对象的 GetName 属性，以返回列的名称。
OleDbDataReader 对象的 Item 属性与 FieldCount 属性结合，使用一个索引编号返回数据行中每个数据字段的值。
使用 DataAdapter、DataSet、DataTable、DataRow 和 DataColumn 对象处理数据集
ADO.NET 的 DataSet 对象是为断开连接的数据而设计的。您可以在一个数据集中模拟整个的结构和数据，包括表、行、列、字段，甚至关系。处理完数据后，可以使数据集中的数据与原始中的数据同步。下面是我编写的一段示例代码，可以逐个读取断开连接的数据集中的所有数据。

' Visual Basic .NET 代码。
' 控制台应用程序。
' 引用：
' System
' System.Data
' System.XML

Imports System.Data.OleDb ' 用于 OleDb 对象。
Imports Microsoft.VisualBasic.ControlChars ' 用于 CrLf 常量。

Module Module1

Sub Main()

' 创建并初始化 OleDbDataAdapter 和 DataSet 对象。
Dim objAdapter As New OleDbDataAdapter _
("SELECT * FROM Products", _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"User ID=Admin;" & _
"Data Source=C:\Program Files\Microsoft" & _
"Office\Office10\Samples\Northwind.mdb")
Dim objDataSet As New DataSet()

' 将所选数据复制到数据集。
objAdapter.Fill(objDataSet)

' 列出数据集中的数据值。
Call ListData(objDataSet)

End Sub

Public Sub ListData(ByVal objDataSet As DataSet)

' 目的：列出给定数据集的数据值。
' 接受：objDataSet - 数据集。

Dim objTable As DataTable
Dim intRow, intColumn As Integer

' 数据集中可能包含有多个表。
For Each objTable In objDataSet.Tables

With objTable

Console.Write("表" & _
.TableName "中的数据" & ":" & CrLf)

' 首先列出列名称。
For intColumn = 0 To .Columns.Count - 1

If intColumn = .Columns.Count - 1 Then
Console.Write(.Columns(intColumn).ColumnName _
& CrLf)
Else
Console.Write(.Columns(intColumn).ColumnName _
& ", ")
End If

Next intColumn

' 按行列出数据...
For intRow = 0 To .Rows.Count - 1

' ...然后按字段列出每行中的数据。
For intColumn = 0 To _
.Rows(intRow).ItemArray.Length - 1

If intColumn = _
.Rows(intRow).ItemArray.Length - 1 Then
Console.Write(.Rows(intRow). _
ItemArray(intColumn) _
& CrLf)
Else
Console.Write(.Rows(intRow). _
ItemArray(intColumn) & ", ")
End If

Next intColumn

Next intRow

End With

Next objTable

' 暂停，以便用户在控制台窗口中查看数据。
Console.Write("按任意键继续...")
Console.Read()

End Sub

End Module

下面是该代码的工作方式：

同样，Imports 代码（例如，Imports System.Data.OleDb）有助于减少访问对象或对象的成员时所需的工作量。类似地，对 OleDbDataAdapter 和 DataSet 对象进行声明和初始化，分别代表与数据集之间的适配器以及数据集。OleDbAdapter 对象的 FillData 方法将中的数据复制到数据集。此代码的核心是 ListData 子例程。
通过使用 DataSet 对象的 Tables 属性，最外层的 For...Each 循环将遍历数据集中的每个表，并将每个表作为 DataTable 对象返回。
DataTable 对象的 Columns 属性返回一个 DataColumnCollection，代表表中的所有列。通过结合使用 Columns 属性和一个索引编号（即结合 DataColumnCollection 集合的 Count 属性，如代码中所示），将返回一个 DataColumn 对象。DataColumn 对象的 ColumnName 属性返回列的名称。
同样，DataTable 对象的 Rows 属性返回一个 DataRowCollection，代表表中的所有行。通过结合使用 Rows 属性和一个索引编号（即结合 DataRowCollection 集合的 Count 属性，如代码中所示），将返回一个 DataRow 对象。DataRow 对象的 ItemArray 属性返回一个 Object 类型的数组，代表数据行中的每个值。通过结合使用 ItemArray 属性和一个索引编号（即结合 DataColumnCollection 集合的 Count 属性，如代码中所示），将返回单个数据字段值。
更多信息
有关 ADO.NET 的更多信息，请参阅以下内容：