2 nicename
Тебе же уже ответил Виктор Сенин - открой рекордсет до заполнения тривью, а закрой после. У тебя все тормоза потому что ты объявляешь переменную и открываешь/закрываешь рекордсет столько же раз, сколько записей.

ЛП писалв пятой строчке рекурсии

Private Sub AddNodes(KeyParent As String)
1:
2: Dim rstCustomers As Recordset
3: Set qd = CurrentDb.QueryDefs("zObjectLoad")
4: qd.Parameters("Parent1").Value = KeyParent
5: Set rstCustomers = qd.OpenRecordset
Dim NodX As Node
Do While Not rstCustomers.EOF
With TreeView1.Nodes
If KeyParent = "P0" Then '=============================корневой узел
Set NodX = .Add(, , rstCustomers!KeyObject, rstCustomers!ObjectFullName)
Else ' ==========================================дочерний узел
Set NodX = .Add(KeyParent, tvwChild, rstCustomers!KeyObject, rstCustomers!ObjectFullName)
End If
End With
Call AddNodes(rstCustomers!KeyObject)
rstCustomers.MoveNext
Loop
rstCustomers.Close
End Sub