كيف اربط TreeView1 في Databases Access

[قديم الشوق]

السلام علكيم ورحمة الله وبركاته
احتاج الجزئيه التالية

كود :

http://www.36r-m.com/up/uploads/13250168961.gif

وجدت مثال للاخ المبرمج لاكن المثال لا يعمل معي يحتاج الى مكونات وواجهة مشاكل ولم استفد منه
http://www.delphi4arab.net/forum/showthread.php?p=14432
وشكراً لكم

[قديم الشوق]

تم حل المشكة بعد جهد وبحث

كود :

procedure TForm1.FormShow(Sender: TObject); begin ListBox1.Items.Clear; ADOTable1.First; while not ADOTable1.Eof do begin //DBListBox1.Items.Add(ADOTable1.Fields[0].Value); // DBListBox1 áÇÓÊÎÏÇãåÇ Ýí ãßæä ListBox1.Items.Add(ADOTable1.Fields[0].Value); ADOTable1.Next; end; end;