Data Acess Class

hi


i was reading book about asp.net and i found example for a dataacess class but i didn't understand this part





Private m_FieldData As New NameObjectCollection


Private _m_ConnectionString As String


Private m_dbConnection As SqlConnection


Private Sub AddParameters( _


ByVal objCommand As SqlCommand, _


ByVal objValues() As Object)





Dim objValue As Object


Dim I As Integer


Dim objParameter As SqlParameter





objCommand.Parameters.Clear()


SqlCommandBuilder.DeriveParameters(objCommand)





I = 0


For Each objParameter In objCommand.Parameters


If objParameter.Direction = ParameterDirection.Input _


Or objParameter.Direction = _


ParameterDirection.InputOutput Then





objValue = objValues(I)


objParameter.Value = objValue


I = I + 1


End If


Next


End Sub





Private Sub AddFieldParameters _


(ByVal objCommand As SqlCommand)





Dim objParameter As SqlParameter





objCommand.Parameters.Clear()


SqlCommandBuilder.DeriveParameters(objCommand)





For Each objParameter In objCommand.Parameters


objParameter.Value = _


_FieldData.Item(objParameter.ParameterName. _


Substring(1))


Next


End Sub


Public Function ExecDataReader _


(ByVal strStoredProc As String, _


ByVal ParamArray objValues() As Object) _


As SqlDataReader





Dim objCommand As SqlCommand


Dim objReader As SqlDataReader





objCommand = New SqlCommand





objCommand.CommandText = strStoredProc


objCommand.CommandType = CommandType.StoredProcedure


objCommand.Connection = dbConnection





Try


objCommand.Connection.Open()


If (objValues.Length = 0) Then


AddFieldParameters(objCommand)


Else


AddParameters(objCommand, objValues)


End If


objReader = objCommand. _


ExecuteReader(CommandBehavior.CloseConnection)


Catch ex As Exception


If objCommand.Connection.State.Open Then


objCommand.Connection.Close()


End If


End Try





Return objReader


End Function


can anybody help me what the author want to do