Вот кусок кода.

Set rsParent = rsTree.Clone
RootTree.Nodes.Clear
rsTree.MoveFirst
Do While rsTree.EOF = False
If rsTree.Fields("Id") = 2 Then
RootTree.Nodes.Add , , rsTree.Fields("Name"), rsTree.Fields("Name")
Else
rsParent.Find "Id=" + Str(rsTree.Fields("IdParent"))
RootTree.Nodes.Add rsParent.Fields("Name"), tvwChild, rsTree.Fields("Name"), rsTree.Fields("Name")
End If
rsTree.MoveNext
Loop

"Негодный объект"-Debag- Встает на вторую строку после ELSE. Значения у всех аргументов есть. К чему бы это?

Да нет. Тестю только. В кеу цифр нет.

Подставил в эту строку Value после rsParent.Fields("Name")

Сработало за милую душу.
Танцы с бубном какие-то...

Спасиб всем.