Запрос на открытие базы

[IgoreKMaN]

Почему повторно не срабатывает запрос на открытие базы в DBGrid.
Пишу запрос на открытие базы
procedure TForm2.Button6Click(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Vrachi');
ADOQuery1.Active:=True;
except
on e:Exception do
end;
end;
Затем после нажатия кнопки поиска
(procedure TForm2.Button4Click(Sender: TObject);
begin
If Edit1.text<>'' then
begin

ADOQuery1.filter:='Specialnost'+' LIKE '''+Edit1.text+'%'+'''';
ADOQuery1.filtered:=true;
end
else
//ADOQuery1.filtered:=false;
end; )
сново нажимаю на кнопку открытия базы, но обновление не происходит. Почему?

[Аватар]

Потому, что Close (или Active:=False) не сделали для ADOQuery

[IgoreKMaN]

Спасибо, но и не только в этом ошибка, нужно было сделать вот так
procedure TForm2.Button5Click(Sender: TObject);
begin

ADOQuery1.filtered:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROMVrachi');
ADOQuery1.Active:=True;

end;

[=master=]

Думаю что последние 3 строки лишние.