Set lstResults.DataManager.DataSource = objRecordset
lstResults.DataManager.DataBind
' go through each row
For Each objReportRow In lstResults.Rows 
    ' check for a child row with a parent Id value
    If objReportRow.Record(4).Value <> "0" Then  
        ' find the parent row
        Set objReportParentRecord = lstResults.Rows.FindRecordItemByRows(0, lstResults.Records.Count, 0, 3, 0, 0, objReportRow.Record(4).Value, xtpReportTextSearchExactPhrase)
        If Not objReportParentRecord Is Nothing Then
            Set objParentRecord = objReportParentRecord.Record
            ' move the child row to the Childs collection of the parent
            If objParentRecord.Childs.Count = 0 Then
                Call objParentRecord.Childs.InsertAt(0, objReportRow.Record)
            Else
                Call objParentRecord.Childs.InsertAt(objParentRecord.Childs.Count, objReportRow.Record)
            End If
            lstResults.Records.RemoveAt objReportRow.Index
            'objParentRecord.Expanded = True
        End If
    End If
Next
    
lstResults.Populate

Set lstResults.DataManager.DataSource = objRecordset
lstResults.DataManager.ParentId = objRecordset.Fields("ParentOrderNo")
lstResults.DataManager.ChildId = objRecordset.Fields("OrderNo")
lstResults.DataManager.DataBind