shape and append command data report

I am trying to fabricate a hierarchial recordset. I want to create two sibling recordsets below one parent. I do this all the time with regular queries but I can't figure out how to do it without a data provider. This is what I have so far:

strShape = _
"SHAPE APPEND NEW adChar(30) AS Foo, " & _
" ((SHAPE APPEND NEW adChar(30) AS Bar) RELATE Foo TO Bar) AS FooBar, " & _
" (( NEW adChar(30) AS FooFoo) RELATE Foo TO FooFoo) AS FooFooBar"

The syntax is correct up to As FooBar in the second line.

What I am after is this:

+Foo
+--FooBar
+--FooFooBar

NOT this:

+Foo
+-+FooBar
  +--FooFooBar

So could someone please give me a hint. I can't be that far off.

Thanks,
Edit/Delete Message

Each Child record needs a "Shape Append" command. Try this

Code:

---

strShape = _
"SHAPE APPEND NEW adChar(30) AS Foo, " & _
" ((SHAPE APPEND NEW adChar(30) AS Bar) RELATE Foo TO Bar) AS FooBar," & _
" ((SHAPE APPEND NEW adChar(30) AS FooFoo) RELATE Foo TO FooFoo) AS FooFooBar"

---