Private Sub GetHolds()
    
    Dim oStu As cEAStudent
    Dim oRec As AFNInterfaces.IBBEARecordObject
    Dim oFIELD As AFNInterfaces.IBBMetaField
    Dim oHoldCodes As CEARecordHoldCodes
    Dim oHoldCode As CEARecordHoldCode
    
    Set oStu = New cEAStudent
    oStu.Init FE_Application.SessionContext
    
    oStu.Load 2
    
    Set oFIELD = oStu
    Set oRec = oFIELD.ChildObject(EASTUDENTS_child_RECORDOBJECT)
    
    If oRec.HoldCodes.Count > 0 Then
        Set oHoldCodes = oRec.HoldCodes
        Set oHoldCode = oHoldCodes.Item(1)
        
        Debug.Print oHoldCode.Fields(EAHOLDCODES_fld_HOLDCODE)
        Debug.Print oHoldCode.Fields(EARECORDHOLDCODES_fld_DESCRIPTION)
        
        Set oHoldCode = Nothing
        Set oHoldCodes = Nothing
    End If
   
    Set oRec = Nothing
    Set oFIELD = Nothing
    
    oStu.CloseDown
    Set oStu = Nothing
 
End Sub