Не могу организовать поиск!

[teenboy]

Дана база данных(ADO).
Были размещены для поиска компоненты edit и button
Вот код, при помощи которого хочу организовать поиск:

procedure TForm1.Button1Click(Sender: TObject);
var
LocOpts: TLocateOptions;
LocFields: string;
LocValues: variant;
begin
LocOpts:=[];
LocFields:='Transport';
if Length(Edit1.Text)>0 then
begin
LocFields:=LocFields+';zakazcik';
LocValues:=VarArrayCreate([0,1],varVariant);
LocValues[0]:=edit1.Text;
LocValues[1]:=edit2.Text;
end
else
LocValues:=Edit1.Text;
query1.Locate(LocFields,LocValues, [loPartialKey, loCaseInsensitive]);
end;


При нажатии кнопки выскакивает ошибка. Вот ее содержание:

query1: Cannot perform this operation on a closet dataset.

Иногда выскакивает ошибка: Circular datalinks are not allowed.

Что делать??? Код программы вроде правильный.
Таблица формата access. Среда разработки Delphi 6 Enterprise(on Vista).
Или подскажите, как лучше организовать поиск(выборку.)


Заранее спасибо за помощь!

[Sparky]

а ты открываешь query1?

[S@fer]

Сделайте поиск в запросе

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [Tablica] WHERE [FIO] LIKE "%'+Edit_Search.Text+'%"');
  ADOQuery1.Active:=True;
end;

[greendoom]

Сообщение от S@fer

Сделайте поиск в запросе

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [Tablica] WHERE [FIO] LIKE "%'+Edit_Search.Text+'%"');
  ADOQuery1.Active:=True;
end;

спасибо, дружище!! ты меня выручил!!