下面语句执行之后的想得到效果是 选好combobox1的内容再按Button3在BDgrid里面显示

下面语句执行之后的想得到效果是 选好combobox1的内容再按Button3在BDgrid里面显示出来，但我执行之后，什么都显示不出来。帮帮忙！哪里有问题？我是新手！

procedure TPagesDlg.Button3Click(Sender: TObject);
begin
if combobox1.Items.Text='新业务' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from Tsub';
adoquery1.Open;
end;

if combobox1.Items.Text='经济效益情况' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from Tec';
adoquery1.Open;
end;
end;
end.