Public Sub StudentRecordID()
Dim oStu As cEAStudent
Dim oAddr As IBBAddressHeader
Dim oRoll As cEAAppEnroll

Set oStu = New cEAStudent
oStu.Init FE_Application.SessionContext
oStu.Load 61, True

Debug.Print oStu.Fields(EASTUDENTS_fld_NAMEFORDISPLAY)
Debug.Print oStu.Fields(EASTUDENTS_fld_DORMITORY)

For Each oRoll In oStu.Enrollments
Debug.Print oRoll.Fields(EAAPPLICATIONSENROLLMENTS_fld_BOARDTYPE)
Set oRoll = Nothing
Next oRoll

For Each oAddr In oStu.Address
Debug.Print oAddr.Address.Fields(ADDRESS_fld_ADDRESSBLOCK)
Set oAddr = Nothing
Next oAddr

oStu.CloseDown
Set oStu = Nothing

End Sub