Public Sub ReadMyData(ByVal connectionString As String)
    Dim queryString As String = "SELECT OrderID, CustomerID FROM Orders"
    Using connection As New OleDbConnection(connectionString)
        Dim command As New OleDbCommand(queryString, connection)

        connection.Open()

        Dim reader As OleDbDataReader = command.ExecuteReader()
        While reader.Read()
            Console.WriteLine(reader.GetInt32(0).ToString() + ", " _
               + reader.GetString(1))
        End While

        ' always call Close when done reading.
        reader.Close()
    End Using
End Sub

' 导入命名空间
Imports System
Imports System.Data
Imports System.Data.OleDb

Module OleDbProvider
   Sub Main()
      ' Set up connection string
      Dim ConnString As String = "provider=sqloledb;" & _
         "data source=(local)\SQLEXPRESS;" & _
         "integrated security=sspi;" & _
         "database=MyDatabase"

      ' Set up query string
      Dim CmdString As String = "SELECT * FROM Employee"

      'Declare Connection and DataReader variables
      Dim Conn As OleDbConnection
      Dim Reader As OleDbDataReader

      Try
         'Open Connection
         Conn = New OleDbConnection(ConnString)
         Conn.Open()

         'Execute Query
         Dim Cmd As New OleDbCommand(CmdString, Conn)
         Reader = Cmd.ExecuteReader()

         'Display output header
         Console.WriteLine("Demonstrates the use " & _
            "of the OleDb Data Provider." & ControlChars.NewLine)
         Console.WriteLine("Querying database {0} with query {1}" & _
            ControlChars.NewLine, Conn.Database, Cmd.CommandText)
         Console.WriteLine("FirstName" & ControlChars.Tab & "LastName")

         'Process The Result Set
         While (Reader.Read())
            Console.WriteLine(Reader("FirstName").PadLeft(9) & _
               ControlChars.Tab & Reader(1))
         End While

      Catch ex As Exception
         Console.WriteLine("Error: {0}", ex)

      Finally
         'Close Connection
         Reader.Close()
         Conn.Close()

      End Try

   End Sub
End Module