' 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 callerFunction 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 drEnd Function