ADOTable1 не видит в базе данных поля 'Логин'

Листинг:

procedure TForm4.Button1Click(Sender: TObject);
begin    
  if trim(Edit1.Text)='' then
  begin
    Form5.ADOTable1.Filtered:=false;
  end
  else begin
    Form5.ADOTable1.Filter:='Логин'+chr(39)+trim(Edit1.Text)+chr (39);
    Form5.ADOTable1.Filtered:=true;
  end;

  with Form5.ADOTable1 do
  begin
    Login:=FieldByName('Логин').AsString;
    Pass:=FieldByName('Пароль').AsString;
    name1:=FieldByName('Имя').AsString;
    name2:=FieldByName('Фамилия').AsString;
    name3:=FieldByName('Отчество').AsString;
  end;

  if (Login=Edit1.Text) and (Pass=Edit2.Text) then
  begin
    KeyBD:=false;
    Form4.Hide;
    MainForm.Show;
  end
  else showmessage('Логин или пароль введены неправильно');

  if Login='tage_off' then Form3.Button2.Enabled:=true;
end;

Ошибка:

введите сюда описание изображения

База данных:

введите сюда описание изображения


Ответы (0 шт):