为什么查询时总是点击查询按钮两次才会有结果，而以后只要点击一次就可以有查询结果了？

为什么查询时总是点击查询按钮两次才会有结果，而以后只要点击一次就可以有查询结果了？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061219170657216.html
我用Delphi做查询时，用的是TADOQuery，传递参数进行查询，可是，查询窗体刚打开时，为什么总是要点击“查询”两次才出结果，而以后击“查询”一次就可以显示结果了？  
   
   
  以下是代码，请高手们帮我分析一下，到底是怎么回事了，该怎么改掉这个错误！  
   
   
  //执行查询  
  procedure   TfrmBookFeeQuery.BitBtn2Click(Sender:   TObject);  
  begin                                   //执行查询  
      with   QueryDS   do  
      begin  
          close;  
          Parameters.Clear;  
          Parameters.CreateParameter('@V',ftstring,pdinput,20,Combobox1.Text);  
          if   RadioButton1.Checked   then  
                begin  
                    CommandText:='select   *   from   FeeHistory   where   [ClassName]=:V';  
                end  
          else  
                begin  
                    CommandText:='select   *   from   Departments   where   [DepartmentName]=:v';  
                end;  
   
          active:=true;  
   
      end;  
  end;

Open一下

open了也不行呀，还是一样

好明显TADOQuery是没有CommandText的，不提示你错误？

UP,我也遇到过

QueryDs是一个ＴＡＤＯＤａｔａＳｅｔ组件