Поиск точного совпадения по двум столбцам таблицы в БД Access

[lun-wadim]

Имеется две отдельные таблицы (TProizFactor и TProizFactor2). В первом таблице TProizFactor: номер сотрудника, номер пункта произв. вред. фактора, наименование произв. вред. фактора. Во втором таблице TProizFactor2: номер пункта произв. вред. фактора, наименование произв. вред. фактора.

Например:
Первая таблица TProizFactor
Таблица TProizFactor.jpg

Вторая таблица TProizFactor2. Это как справочник.
Таблица TProizFactor2.jpg

Я открываю данные сотрудника под номером 3, открываю справочник (таблица TProizFactor2), добавляю из справочника пункт 1.1.1 в таблицу TProizFactor. Вот результат на рисунке
Таблица TProizFactor далее.jpg

Вот мой код Delphi

var
Res: Variant;
.........
Res:=fDM.TProizFactor.Lookup('Номер сотрудника;№ п/п',VarArrayOf([fDM.TFIO.FieldByName('Номер сотрудника').AsString,fDM.TProizFactor2.FieldByName('№ п/п').AsString]),'');
if VarType(Res) = varNull then
  begin
    ShowMessage('Добавляем запись');
    fDM.TProizFactor.Append;
    ........

Если совпадает, то ругает на строку if VarType(Res) = varNull then.
Если ли другие варианты поиска? Locate не помогает.

[Sciv]

Если ли другие варианты поиска? Locate не помогает.

А покажите, как Вы локейтом пользуетесь, что она не помогает?

А из других вариантов - ну например, SQL-запрос. Или фильтр по столбцу

[lun-wadim]

Sciv насчет Locate, у меня получилось. Я немножко не то написал. Вот верный код:

if fMain.DBGrid3.DataSource.DataSet.Locate('Сотрудник;№ п/п', VarArrayOf([fDM.TFIO.FieldByName('Код').AsString,fDM.TProizFactor2.FieldByName('№ п/п').AsString]),[])=false then