Fehler bei zugriff auf Access DB

[Gehstock]

Delphi-Quellcode:

ADOConnection1.open;
ADOConnection1.GetTableNames(st);
 for i := 0 to st.Count-1 do
   TreeView1.Items.Add(NIL,(st.Strings[i]))

versuche mir grad ne datenbank mit hilfe eines Treeviews darzustellen bekomme aber beim ausführen ein "Access Violation....."