Проблема с заполнением TreeView в цикле

[Fogkch]

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


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


Заранее, спасиб!

[Fogkch]

Не разобрался, но проблема решилась.

Подставил в глючную строку к родительскому ключу Value.

Заработало
Может кто знает авторитетный ответ, почему так?