Наполнение альтернативного TreeView данными

  'добавить узел Root с основными и расширенными значками и сделать его жирным
        Set cRoot = .AddRoot("Root", strCap, "FolderClosed", "FolderOpen")
        cRoot.Bold = True
        
        'Открыть набор записей  первого уровня
        Set dbs = CurrentDb
        strSQL = "SELECT dtKey, dtName, dtParent, dtLevel FROM " & strTmp & " ORDER BY dtKey"
        Set rst1 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
        'перебрать первый уровень
        Do While rst1!dtlevel = 1
        i = i + 1
               'Добавить узел первого уровня
               strKey = rst1!dtKey & i
               strCaption = rst1!dtName
               Set cNode1 = cRoot.AddChild(strKey, strCaption, "Scroll", "OpenBook")
               
               'Открыть набор записей второго уровня
               strSQL = "SELECT dtKey, dtName, dtParent, dtLevel FROM " & strTmp & " WHERE dtKey = " & _
               rst1!dtKey & " ORDER BY dtKey"
               Set rst2 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
 
               Do While rst2!dtlevel = 2
                       'Добавить узел второго уровня
                       strKey = rst2!dtKey & i
                       strCaption = rst2!dtName
                       Debug.Print rst2!dtName
                       Set cNode2 = cNode1.AddChild(strKey, strCaption, "Scroll", "OpenBook")
               
                       'Открыть набор записей третьего уровня
                       strSQL = "SELECT dtKey, dtName, dtParent, dtLevel FROM " & strTmp & " WHERE dtKey = " & _
                       rst2!dtKey & " ORDER BY dtKey"
                       Set rst3 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
                       Do While rst3!dtlevel = 3
                              'Добавить узел третьего уровня
                              strKey = rst3!dtKey & i
                              strCaption = rst3!dtName
                              Set cNode3 = cNode2.AddChild(strKey, strCaption, "Scroll", "OpenBook")
                              
                              'Открыть набор записей четвертого уровня
                              strSQL = "SELECT dtKey, dtName, dtParent, dtLevel FROM " & strTmp & " WHERE dtKey = " & _
                              rst3!dtKey & " ORDER BY dtKey"
                              Set rst4 = dbs.OpenRecordset(strSQL, dbOpenForwardOnly)
                              Do While rst4!dtlevel = 4
                                      'Добавить узел четвертого уровня
                                      strKey = rst4!dtKey & i
                                      strCaption = rst4!dtName
                                      Set cNode4 = cNode3.AddChild(strKey, strCaption, "Scroll", "OpenBook")
                                      rst4.MoveNext
                              Loop
                              rst4.Close
                              rst3.MoveNext
                      Loop
                      rst3.Close
                      rst2.MoveNext
               Loop
               rst2.Close
               rst1.MoveNext
        Loop
        rst1.Close

Public Function Node_Add(ByVal idParent As Integer)
Dim strKey As String, strParent As String, strCaption As String
Dim cRoot, cNode, cExtraNode As clsNode
 
    'создайте новый clsTreeview, возвращенный с прикрепленным контейнером TreeControl
    Set mcTree = Me.subTreeView.Form.pTreeview
    
    With mcTree
        'Добавляем некоторые свойства дерева:
        '.NodesClear
        .AppName = strCap
 
        
        'выберем настройки из элементов управления флажка и счетчика на форме.
        .CheckBoxes = False
        .RootButton = True
        .FullWidth = True 'полная ширина
        .Indentation = 18 * 0.75
        .NodeHeight = 12 * 0.75
        .ShowLines = True
        .ShowExpanders = True ' использовать значки для кнопок свертывания / развертывания
 
'Теперь отфильтруем набор записей  по родительским узлам
Dim strF As String
strF = idParent
 
         'добавить узел Root с основными и расширенными значками и сделать его жирным
        Set cRoot = .AddRoot("Root", strCap, "FolderClosed", "FolderOpen")
        cRoot.Bold = True
 
 
        'Открываем набор записей
        strQTrw = "SELECT dtKey, dtName, dtParent, dtLevel FROM DefTree WHERE dtParent = " & strF & " ORDER BY dtKey"
        Set rstTrw = CurrentDb.OpenRecordset(strQTrw)
        
        Do While Not rstTrw.EOF
 
            
            strKey = rstTrw!dtKey
            strCaption = rstTrw!dtName
            
            'строим следующие уровни
            Call Node_Add(strKey)
            
          If strF = 0 Then
            'строим превый уровень
            Set cNode = cRoot.AddChild(strKey, strCaption, "Scroll", "OpenBook")
            Debug.Print strF, strKey
          Else
           [COLOR="Red"] Set cNode = cNode.AddChild(strKey, strCaption, "Scroll", "OpenBook")[/COLOR]
            Debug.Print strF, strKey
          End If
 
            'перейти к следующей записи
            rstTrw.MoveNext
        Loop
        'Закрыть  набор записей
        rstTrw.Close
              
        'очистить
        Set rstTrw = Nothing
        
        'создать элементы управления узла и отобразить дерево
        .Refresh
    End With
 
End Function