使用 DataReader 对象以仅向前移动的、只读的格式访问数据
很多时候，您只是希望简单地浏览数据，而并不需要在数据间来回浏览，也不需要更改数据（我们将此称为“流水数据”）。ADO.NET 的 DataReader 对象是专门为此设计的。下面是我编写的一段示例代码，可以逐个读取连接的数据库中的所有选定数据：

' 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