Не сохраняет значение при lookup на поле таблицы

[Yermek]

Всем спасибо за столь детальные ответы.
На самом деле, код работал на форме а я тестировал из object designer.
2 NeNavision спасибо за "подправленный" код.
К вопросу зачем это нужно, я хотел подтянуть в поле значение из поля другой таблицы не являющейся частью перв. ключа (через TableRelation не получилось бы)