窗体窗建时能同时给两个combobox加值吗

Question

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
               MyPath+'Data\db2.mdb;Jet OLEDB:Database Password='+
               MyPassW+';Persist Security Info=false';adoquery1.Close;
adoquery1.SQL.Add('select 产品编号 from 产品列表 ');
adoquery1.Open;
combobox1.Clear;
while not adoquery1.Eof do
begin
 combobox1.Items.Add(adoquery1.fieldbyname('产品编号').AsString);
 adoquery1.Next;
end;                                  //如果只给combox1添加数据词典，是没有问题的
                        
adoquery1.Close;
adoquery1.SQL.Add('select 业务员编号 from 业务员信息');
adoquery1.Open;
combobox2.Clear;
while not adoquery1.Eof do //如果只给combox2添加数据词典也没问题的，但是两个一起加的话，提示这里有语法错误，
                             不知什么原因，应该如何更正呢。
begin
 combobox2.Items.Add(adoquery1.fieldbyname('业务员编号').AsString);
 adoquery1.Next;
end;end;end.

Answer 1

先要把 第一次查询的SQL清空
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 业务员编号 from 业务员信息');
adoquery1.Open;