Проблема с поиском

[Zeraim]

Народ не серчайте, первый раз в дельфи работаю с акцесом, по поиску чтото не нашол.
Дело в том, что: Я создал базу, кинул на форму дбгрид, адокуери и дата сорс, все там настроил все показывается все супер, но, когда ввожу в едите чтобы он искал запись с похожим названием, оно на меня матюгается типо вводимое значение чтото там неподходит. Вот весь код программки:

unit Base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Наименование картины Like %'+Edit1.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Edit2.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Художник Like %'+Edit2.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
if Edit3.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Инвентарный номер Like %'+Edit3.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
if Edit4.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Год создания картины Like %'+Edit4.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

procedure TForm1.Edit5Change(Sender: TObject);
begin
if Edit5.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Реставратор Like %'+Edit5.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
if Edit6.text<>'' then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='(Цена Like %'+Edit6.text+'%)';
ADOQuery1.Filtered:=True;
end
else
ADOQuery1.Filtered:=False;
end;

end.

[Zeraim]

Ну хотябы намекните в чём проблема? Может в базе? Может я гдето какойто параметр не указал? 8(

[Zeraim]

Проблема решена, моя глупость меня же губит 8)

ADOQuery1.Filter:='(Наименование картины Like %'+Edit1.text+'%)';
а надо было
ADOQuery1.Filter:='([Наименование картины] Like %'+Edit1.text+'%)';