if  adodataset.active  then  adodataset.close;
adodataset.commandtext:='select * from mytabel';
adodataset.open;

 if  adodataset.active  then  adodataset.close;
 while  adodataset.active  do   nil ;
adodataset.commandtext:='select * from mytabel';
adodataset.open;

 procedure  ...
...
 if   not  ADODataSet1Close  then  ADODataSet1.close;
 while   not  ADODataSet1Close  do  sleep( 5 );
ADODataSet1.cpmmandtext:='select * from mytable'
ADODataSet1.open;
 while  ADODataSet1Close  then   do  sleep( 5 );
...
 end ;
...
...
 procedure  TForm1.ADODataSet1AfterClose(DataSet: TDataSet);
 begin 
ADODataSet1Close:=TRUE;
 end ;

 procedure  TForm1.ADODataSet1AfterOpen(DataSet: TDataSet);
 begin 
ADODataSet1Close:=FALSE;
 end ;