ник: Гоблин
Ес! Сделал! Добавка на второй уровень! Пошло! Дошло.
CurrentDb.Execute "INSERT INTO [Модели] (КодТипа, Модель) Values (" & Forms!Форма1!Поле21 & ",'" & Me.Поле9 & "');"
Me.Список19.Requery
Call Me.TreeView0.Nodes.Add("a" & Me.Поле21, 4, "b" & DMax("КодМодели", "Модели"), Me.Поле9)
Me.TreeView0.SetFocus
Me.Form.Refresh
Me.Поле9.SetFocus