新手问题，如何用代码筛选Access的记录到ListBox？

已经在form1中手动配置和连接好了MDB数据库，在form1中有个Listbox1控件，有个按钮，点击按钮，把Acces的记录读出来，放入到Listbox1，请问怎么搞？

---

供参考：
Delphi(Pascal) code:

with adoquery1 do begin
close;sql.clear;
sql.add('select distinct F01 from aTableName order by F01');
open;
while not eof do begin
listbox1.items.add(fieldByName('F01').asstring);
next;
end;
end;

---

adoquery1.first;这个也得加上吧

---

1楼的可以实现，就是代码不咋个规范，新手要注意，养成好的习惯。

---

引用

供参考：
Delphi(Pascal) codewith adoquery1dobegin
close;sql.clear;
sql.add('select distinct F01 from aTableName order by F01');
open;whilenot eofdobegin
listbox1.items.add(fieldByName('F01').asstring);
next;end;end;

我就改一下1楼兄弟的吧，对新手有点用吧。

begin
  ListBox1.Clear;
  with ADOQuery1 do begin
    SQL.Text := 'select distinct F01 from aTableName order by F01';
    Open;
    while not Eof do begin
      ListBox1.Items.Add(FieldByName('F01').AsString);
      Next;
    end;
    Close;
&nbs