关于DBCOMBOX的问题

Question

我在程序中用DBCOMBOX连接了一个数据库的一个字段（ACCESS），本想用DBCOMBOX显示这个字段的数据的。但是DBCOMBOX只能显示第一行数据，无法显示下面的数据（我检查过的，数据库中是有四行数据的），这是为什么？

Answer 1

with TADOQuery.Create(Self) do
begin
  SQL.Add('Select Dinstinct 字段名 From 表名');
  Active:=True;
  DBComboBox1.Items.Clear;
  While Not Eof do
  begin
    DBComboBox1.Items.Add(Fields[0].AsString);
    Next;
  end;
  Free;
end;//放在初始化代码里