Helló!

Futás közben szeretném változtatni a ADODataset1.CommandText-jét.
Pl.: Egy gomb megnyomására szeretném szűrni az adott adatbázis adott tábláját.Eddíg a következő módon próbáltam:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Close;
ADODataset1.CommandText:= 'Select * From táblanév';
ADODataset1.Open;
end;

Fut is a progi ,de ha lenyomom a gombot ,amihez rendeltem az eljárást egy kicsit vár a progi majd lefagy. Az adatbázis elérés elvileg jól van belőve.
Mi lehet a baj?
Vagy nagyon rosszul próbálom megvalósítani? :S