Lookup поле, DbGrid и выпадающие списки

[Бегущая вдаль]

Прошу прощения за такую замыленную тему, но я в полной растерянности.
БД Access, даны 2 таблицы: Меню и Заказ. Связь Меню-Заказ=Один ко Многим.

Проблема в следующем: создаю в таблице Заказ lookup-поле (в дизайн-режиме). Ключевые поля и прочие свойства указываю верно. Поле вроде как создаётся, НО отсутствует выпадающий список, а поле, естественно, не поддаётся редактированию.
Попробовала создать такое же lookup-поле в другой таблице - работает.
Попробовала создать другое lookup-поле в этой же таблице (Заказ) - не работает. Т.е., поля выбора в этой таблице ВООБЩЕ не работают.
Попыталась создать программно:

procedure TClients.FormActivate(Sender: TObject);
var s:real;
 F:TField;
begin
with dm do
  begin
  ADOZakaz_bl.Close;
  ADOZakaz_bl.FieldDefList.Update;
  F:=TStringField.Create(ADOZakaz_bl);
  with f do
  begin
    FieldName:='naim';
    FieldKind:=fkLookup;
    DisplayWidth:=50;
    LookupDataSet:=ADOMenu;
    KeyFields:='nom_bl';
    LookupKeyFields:='kod_bl';
    LookupResultField:='naim';
  end;
end;

То же самое абсолютно. Ищу дальше.
Где-то прочитала, что помогает такой вот кусок кода:

ADOZakaz_bl.Edit;
  ADOZakaz_bl.FieldByName('naim').Value:=ADOMenu.FieldValues['naim'];
  ADOZakaz_bl.Post;
  ADOZakaz_bl.Refresh;

Но и это не помогло. В голове не укладывается, где может быть ошибка. Кто-нибудь может помочь?

З.Ы. В работе в lookup-полями я не новичок, никогда не гнушалась ими пользоваться. Да и в Delphi работаю уже больше года. Это так, к слову)

[GoodDA]

откройте форму в режиме текста Alt+F12
И сравните описание работающего варианта и неработающего