Option Compare Database
Option Explicit
'добавление узлов в TreeView при открытии (рекурсивная процедура)
Public Function TreeView_Node_Add(obj_TreeVieW As Object, i As Integer, sParentKey As String) As Boolean
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM TablTree WHERE [Parent] = " & i)
    Do Until rst.EOF
        Call TV_ДобавитьУзел(obj_TreeVieW, "Key" & CStr(rst![Key]), rst("Text"), sParentKey)
'вызываем повторно, каждый раз подставляя текущее значение Кеу на место Parent,
'таким образом "вытягивается" вся цепочка каждой группы.
        Call TreeView_Node_Add(obj_TreeVieW, rst![Key], "Key" & CStr(rst![Key]))
        rst.MoveNext
    Loop
End Function

Option Compare Database
Option Explicit
Public NodeRS As Recordset
Function TV_ДобавитьУзел(var_TreeView As Control, _
                         var_Ключ As Variant, _
                         var_Текст As String, _
                         Optional var_РодительскийКлюч = Null, _
                         Optional var_ОтношениеКРодителю = tvwChild, _
                         Optional var_Recordset As Recordset) As Boolean

Dim boolUseRS As Boolean
Dim ndNode As Object
If Not var_Recordset Is Nothing Then
    boolUseRS = True
Else
    boolUseRS = False
End If

If Nz(var_РодительскийКлюч) = "" Then
          Set ndNode = var_TreeView.Nodes.Add(, var_ОтношениеКРодителю, var_Ключ) ' = var_Текст
Else
          Set ndNode = var_TreeView.Nodes.Add(var_РодительскийКлюч, var_ОтношениеКРодителю, var_Ключ) ' = var_Текст
End If
ndNode.Text = var_Текст
If boolUseRS Then
    var_Recordset.AddNew
    var_Recordset!Key = var_Ключ
    var_Recordset!Text = var_Текст
    var_Recordset.Update
End If
End Function