Dim rs As ADODB.Recordset ' Массив данных
Dim rs2 As ADODB.Recordset 'Возвращает ветвь
Private Sub Command1_Click()
   Dim i As Long, j As Long
   For i =  0  To  9  'Наполним массив "случайными данными"
      rs.AddNew Array("id", "Parent_id", "Text"), Array(i, j, " Число " & i)
      rs.Update
      If (i Mod  2 ) =  0  Then j = j +  1 
   Next
   Dim s As String
   Call Ветвь( 2 ) 'Найдем всех потомков узла 2
   If rs2.RecordCount >  0  Then rs2.MoveFirst
   Do Until rs2.EOF ' и покажем что нашли
      s = s & rs2.Fields( 0 ).Value & " " & rs2.Fields( 1 ).Value & rs2.Fields( 2 ).Value & vbCrLf
      rs2.MoveNext
   Loop
   MsgBox s
End Sub
Sub Ветвь(ByVal Ключ As Long)
   Dim k As Long
   If Not rs.EOF Then rs.MoveFirst
   rs.Find "Parent_id = " & Ключ
   Do Until rs.EOF
      k = rs.AbsolutePosition 'Запоминаем текущую позицию
      rs2.AddNew Array("id", "Parent_id", "Text"), Array(rs.Fields( 0 ), rs.Fields( 1 ), rs.Fields( 2 ))
      Call Ветвь(rs.Fields("id"))
      rs.MoveFirst
      rs.Move k +  1   'Восстанавливаем позицию (+1)
      rs.Find "Parent_id = " & Ключ
   Loop
End Sub
Private Sub Form_Load() 'инициализация
   'Основной массив
   Set rs = New ADODB.Recordset
   rs.Fields.Append "id", adInteger, , adFldKeyColumn
   rs.Fields.Append "Parent_id", adInteger
   rs.Fields.Append "Text", adVarChar,  20 
   rs.Open , , adOpenStatic, adLockBatchOptimistic
   'Для возвращаемых значений
   Set rs2 = New ADODB.Recordset
   rs2.Fields.Append "id", adInteger, , adFldKeyColumn
   rs2.Fields.Append "Parent_id", adInteger
   rs2.Fields.Append "Text", adVarChar,  20 
   rs2.Open , , adOpenStatic, adLockBatchOptimistic
End Sub