طريقة عمل هذا الكود

Private Sub Form_Load()

Dim DBS As Database

Dim rst As Recordset

Dim nodX As Node

Set DBS = CurrentDb

Set rst = DBS.OpenRecordset("custmer", dbOpenDynaset)

Set nodX = TreeView1.Nodes.Add(, , "A", "الدليل")

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

rst.Close

Set DBS = Nothing

For Each nodX In TreeView1.Nodes

nodX.Expanded = False

nodX.Sorted = True

Next

End Sub