CreateDataReader_OleDb - Create an OLEDB Data Reader

' return a DataReader over an OleDbConnection
'
' CONNSTRING is the connection string
' SQL is the SQL Select statement to be executed
'
' the connection will be automatically closed when the DataReader is disposed
' any exception is returned to the caller

Function CreateDataReader_OleDb(ByVal connString As String, _
    ByVal sql As String) As System.Data.OleDb.OleDbDataReader
    ' open the connection
    Dim cn As New System.Data.OleDb.OleDbConnection(connString)
    cn.Open()
    ' prepare the SQL SELECT command
    Dim cmd As New System.Data.OleDb.OleDbCommand(sql, cn)
    ' create a DataReader - note the CloseConnection argument
    ' which causes the Connection to be closed when the DataReader is disposed
    Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader _
        (CommandBehavior.CloseConnection)
    ' dispose the Command object and return the result
    cmd.Dispose()
    Return dr
End Function