Private Sub FundRels()

    Dim oRels As CFundRelationships
    Set oRels = New CFundRelationships
   
    Dim sSQL As String
    sSQL = "Fund.id = 52"
    oRels.Init REApplication.SessionContext, , tvf_FundRelation_CustomWhereClause, sSQL

    Dim oRel As CFundRelationship
   
    For Each oRel In oRels
        Debug.Print oRel.Fields(FUNDRELATION_fld_CONSTIT_NAME)
        Debug.Print oRel.Fields(FUNDRELATION_fld_DATE_FROM) & " to " & oRel.Fields(FUNDRELATION_fld_DATE_TO)
        Debug.Print ""
    Next oRel
   
    oRels.Closedown
    Set oRels = Nothing

End Sub