Создание иерархического запроса (Shape) -довольно утомительно.
Гораздо проще строить иерархию в vsFlexGrid (VideoSoft, сейчас ComponentOne):
The Subtotal method adds subtotal rows that contain aggregate data for the regular (data) rows.

Subtotal supports hierarchical aggregates. For example, you may call it several times in a row using different parameters to get sales figures by Product, Region, and Salesperson. You may also calculate aggregates other than sums (e.g. averages or percentages) and format the subtotal rows to highlight them.

For example, assuming you had a VSFlexGrid control named fg containing Product, Region, Salesperson, and Sales information, you could summarize it with the following code:
' clear existing subtotals
fg.Subtotal flexSTClear

' get an Grand total (use 1 instead of columns index)
fg.Subtotal flexSTSum, -1, 3, , 1, vbWhite, True

' total per Product (column 0)
fg.Subtotal flexSTSum, 0, 3, , vbRed, vbWhite, True

' total per Region (column 1)
fg.Subtotal flexSTSum, 1, 3, , vbBlue, vbWhite, True

' show an OutlineBar on column 0
fg.OutlineBar = flexOutlineBarSimple