Public Sub myTreeView(treeMy As Object, typMy As Object, _
strSQLtree As String, Optional viewRec As Boolean)

Dim rsTree As DAO.Recordset

treeMy.Nodes.Clear
DoCmd.Hourglass True 'включаем часики

Set rsTree = CurrentDb.OpenRecordset(strSQLtree, dbOpenSnapshot)

Dim ky As String   ' ключ nod'a treeview'a (обязательно текст)
Dim txt As String  ' имя nod'a
Dim par As String  ' индекс родителя nod'a
Dim typSprav As String
    treeMy.Nodes.Add , , "С", "Справочник:" & _
    " " & typMy.Column( 0 ),  1 ,  3               ' добавляем главный
If rsTree.RecordCount >  0  Then               ' корневой элемент (тип справочника)
typSprav = typMy.Column( 0 )
    rsTree.MoveFirst
    While rsTree.EOF = False
        If rsTree!тип_справочника = typSprav Then
            ky = rsTree!ID
            txt = rsTree!наименование
            par = rsTree!ID_родитель
            If rsTree!тип_записи = "группа" And rsTree!удалить = False Then       ' проверяем, если группа, то добавляем nod
            treeMy.Nodes.Add par, tvwChild, ky, txt,  1 ,  3  ' цифирьки - индексы рисунков в ImagList'e, который лежит на форме рядом с TreeView'ом, его надо в свойствах  TreeView'a прописать
            ElseIf rsTree!тип_записи = "группа" And rsTree!удалить = True Then       ' проверяем, если группа и помечен на удаление, то добавляем с другим рисунком nod
            treeMy.Nodes.Add par, tvwChild, ky, txt,  2 ,  4 
            ElseIf viewRec = True And _
            rsTree!тип_записи <> "группа" And rsTree!удалить = False Then       ' проверяем, если не группа и нужно отобразить, то добавляем nod
            treeMy.Nodes.Add par, tvwChild, ky, txt,  5 ,  6 
            ElseIf viewRec = True And _
            rsTree!тип_записи <> "группа" And rsTree!удалить = True Then       ' проверяем, если не группа и нужно отобразить и помечен на удаление, то добавляем с другим рисунком nod
            treeMy.Nodes.Add par, tvwChild, ky, txt,  7 ,  8 
            End If
        End If
        rsTree.MoveNext
    Wend
End If
DoCmd.Hourglass False  'выключаем часики
rsTree.Close
End Sub

Public Sub myTreeClick(treeMy As Object, parentID As Object, nameKey As Object)
On Error GoTo errTreeClck
parentID = treeMy.Nodes(treeMy.SelectedItem.Index).key
nameKey = treeMy.Nodes(treeMy.SelectedItem.Index).Text
errTreeClck:
Exit Sub
End Sub