Private Sub Form_Load()

'очищаем дерево
tv1.Nodes.Clear
'задаем корень дерева
Set objNode = tv1.Nodes.Add(, , "R", "Материалы")

'создаем объекты- рекордсет для классов, типов, марок и позиций
Set rsClass = New ADODB.Recordset
Set rsType = New ADODB.Recordset
Set rsMarka = New ADODB.Recordset
Set rsPoz = New ADODB.Recordset

'формируем строку запроса для классов:
'ClasSql = "Select * FROM mclass" 'Этот запрос работает нормально, но мне нужно исключить пустые значения  
ClasSql = "SELECT [mclass].[id_class] AS mclass_id_class, [mclass].[mclass] AS mclass_mclass, [mtype].[id_type] AS mtype_id_type, [mtype].[mtype], [mtype].[id_class] AS mtype_id_class, [mmarka].[id_marka], [mmarka].[mmarka], [mmarka].[id_type] AS mmarka_id_type FROM (mclass INNER JOIN mtype ON [mclass].[id_class] = [mtype].[id_class]) INNER JOIN mmarka ON [mtype].[id_type] = [mmarka].[id_type] WHERE NOT ([mmarka].[id_marka] IS NULL);"

Debug.Print ClasSql
'получаем набор записей по всем классам
rsClass.Open ClasSql, cn, adOpenKeyset, adLockOptimistic
    'цикл по всему рекордсету
    If rsClass.RecordCount >  0  Then
        rsClass.MoveFirst
    End If
    While Not rsClass.EOF
        'добавляем узел - класс
        keyClass = "R" & rsClass!mclass_id_class

        Set objNode = tv1.Nodes.Add("R", tvwChild, keyClass, rsClass!mclass_mclass)
        'теперь для этого класса нужно заполнить все имеющиеся типы
        'нужен набор записей rsType
        'формируем строку запроса для типов
        TypeSql = "SELECT * FROM mtype WHERE [mtype].[id_class] = " & rsClass!mclass_id_class
        'получаем набор записей по типам
        rsType.Open TypeSql, cn, adOpenKeyset, adLockOptimistic
            ' цикл по типам
            While Not rsType.EOF
                keyType = keyClass & "R" & rsType!id_type
                'добавляем узел - тип
                Set objNode = tv1.Nodes.Add(keyClass, tvwChild, keyType, rsType!mtype)
                'теперь для этого типа нужно заполнить все марки, нужен набор записей rsMarka
                'формируем строку запроса для марок
                MarkaSql = "SELECT * FROM mmarka WHERE [mmarka].[id_type] = " & rsType!id_type
                'получаем набор записей марок для данного типа
                rsMarka.Open MarkaSql, cn, adOpenKeyset, adLockOptimistic
                    ' цикл по маркам
                    While Not rsMarka.EOF
                        keymarka = keyType & "R" & rsMarka!id_marka
                        'добавляем узел - марка
                        Set objNode = tv1.Nodes.Add(keyType, tvwChild, keymarka, rsMarka!mmarka)
                        rsMarka.MoveNext
                    Wend
                    rsMarka.Close
                rsType.MoveNext
            Wend
            rsType.Close
            rsClass.MoveNext
    Wend
    rsClass.Close
'Set rsPoz = Nothing
Set rsMarka = Nothing
Set rsType = Nothing
Set rsClass = Nothing
End Sub

ClasSql = "Select * FROM mclass"

Private Sub tv1_NodeClick(ByVal Node As MSComctlLib.Node)
'Процедура выводит в ListView lv1 позиции для выбранной  в дереве tv1 марки 
lv1.ListItems.Clear
Dim selkey As String
'определяем указатель (key) выбранного узла
selkey = tv1.SelectedItem.Key
'с помощью спец. функции получаем id_marka
selkey = IdMarka(selkey)
'теперь нужен набор записей для выбранной марки
'формируем строку запроса позиций
PozSql = "SELECT * FROM mpoz WHERE [mpoz].[id_marka] = " & selkey
'получаем набор записей позиций
rsPoz.Open PozSql, cn, adOpenKeyset, adLockOptimistic
'добавляем позиции набора в listview
    While Not rsPoz.EOF
        keyPoz = "P" & rsPoz!id_poz
        Set itmx = lv1.ListItems.Add(, keyPoz, rsPoz!mpoz)
        itmx.SubItems( 1 ) = rsPoz!price
     
        rsPoz.MoveNext
    Wend
    rsPoz.Close
End Sub



Public Function IdMarka(keymarka As String) As Long
'функция получения кода марки материала из ключа элемента в дереве
'keymarka имеет вид "C" & id_class & "T" & Id_type & "M" & Id_marka
'нужно получить номер позиции  символа "M", следующий за ним номер 'используем для ф-ии Mid()
Dim nM As Long 'счетчик символов M
Dim i As Integer 'счетчик цикла
Dim sym As String 'переменная для хранения очередного символа
Dim m As Long 'позиция последнего символа "M" в слове
nM =  0 
m =  0 
For i =  1  To CInt(Len(keymarka))
'цикл по всему слову
    
    sym = Mid(keymarka, i,  1 )
        If sym = "M" Then
            nM = nM +  1 
                If nM =  1  Then
                    m = i
                    Exit For
                End If
        End If
Next i

'получаем IdMarka
IdMarka = CLng(Mid(keymarka, m +  1 )) 'Вот здесь ошибка "несоответствие типов", если кликаешь в дереве на типе, который не содержит марок
                    
            
End Function

ClasSql = "SELECT * FROM mclass 
WHERE [mclass].[id_class] IN 
(SELECT [mtype].[id_class] FROM mtype INNER JOIN mmarka ON
 ([mtype].[id_type] = [mmarka].[id_type] AND NOT [mmarka].[mmarka] IS NULL));"

ClasSql = "SELECT * FROM mclass 
WHERE [mclass].[id_class] IN 
(SELECT [mtype].[id_class] FROM 
mtype INNER JOIN mmarka ON 
[mtype].[id_type] = [mmarka].[id_type] WHERE NOT [mmarka].[mmarka] IS NULL);"

Do Until 
      ...
Loop

while
...
wend