سؤال فى القاعدة المحاسبية

السلام عليكم

أريد توضيح هذا الكود فى القاغدة المحاسبية الذى يقوم بأظهار فهرس للحسابات وكيف يمكن عملة بالفيجول بيسك

With rst

Do While Not .EOF

Set nodX = TreeView1.Nodes.Add("A" & CStr(Nz(!ParAcc)), tvwChild, "A" & CStr(!AccID), CStr(!AccID) & ":" & !ArAccDes)

nodX.EnsureVisible

.MoveNext

Loop

End With

مع