Visual Basic - MSFLEXGRID Y SQL SERVER 2000

Hola, muy buenas tardes a todos y todas... espero se encuentren muy bien, es primera vez que participo en este foro, realmente necesito de su ayuda, si alguien tiene la solucion a mi pequeño inconveniente de antemano le digo que estaria muy agradecida.

mi problema es el siguiente:
no se como unir dos consultas en un Msflexgrid. Por ejemplo:

1) Etapa A
1.1) Actividad a
1.2) Actividad b
1.3) Actividad c
2) Etapa B
2.1) Actividad a
2.2) Actividad b
3) Etapa C
3.1) Actividad a

que se vean los datos de esa forma en el flexgrid (puede ser en forma de arbol)
siendo las etapas los datos de una tabla y las actividades datos de otras tablas...

A ver si esto te sirve...

Private sub ArmarGrilla (rstEtapas as ADODB.Recordset, rstActividades as ADODB.Recordset)

dim i as integer
dim j as integer

flexgrid.rows = rstEtapas.count + rstActividades.Count + 1

'Me paro en la fila 0 (Encabezado), total después voy a avanzar
flexgrid.row = 0

for i = 1 to rstEtapas.count
'avanzo una fila
flexgrid.row = flexgrid.row + 1

'escribo en la fila actual, primera columna, el nombre de la etapa
flexgrid.textmatrix (flexgrid.row, 1) = rstetapas.Fields("Nombre")

For j = 1 to rstActividades.count

If rstActividades.Fields("NombreEtapa") = rstEtapas.Fields("Nombre") Then
'avanzo una fila
flexgrid.row = flexgrid.row + 1

'escribo en la fila actual, segunda columna, el nombre de la actividad
flexgrid.textmatrix (flexgrid.row, 2) = rstActividades.Fields("NombreAct")
end if

Next j

next i

Espero que te haya servido. Cualquier cosa, mandame un mail. Saludos!