' 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