一段clientdataset的代码，第一次运行正常，第二次就不执行了

Question

with f_main.clientdataset4 do begin
      datasource1.dataset:=nil;
      dbgrideh1.DataSource:=nil;
      close;
      commandtext:='select peoples_id,peoples_type,peoples_name from peoples order by Peoples_name';
      open;
      datasource1.dataset:=f_main.clientdataset4;
      dbgrideh1.DataSource:=datasource1;
      AfterScroll:=dbafterscroll;
      first;
   end;
上面这此代码，在第一次执行时正常 ，为什么第二次再执行时，当执行到open时就停住了呢。 不再向下执行了。

Answer 1

看计算机的反映，应该在执行着什么，灯一直在闪烁，如果将程序停止了，灯也就不闪烁了。输出一下commandtext，得到的结果就是上面给commandtext赋的值