DBLookupListBox的问题：自动刷新

Question

DBLookupListBox执行update\delete的sql.text语句后怎么刷新自己？
执行成功后总DBLookupListBox空的：（Button1Click）
      with ADOQuery1 do
      begin
      close;
      SQL.Clear;
      SQL.Text := 'Update Company Set...
      ExecSQL;
      Refresh;   //没用的
      end;

Answer 1

AdoQuery1.sql.text := 'select ......'再打开

Answer 2

哈哈，原来是很简单的问题，用另外一个query来update就更好。
 yashenJXF(鸦神)，我没有换问题啊，给分你先，帮我回答另外的问题好吗？