Импорт данных из Excel в Access

[alexvav]

Есть база в Access с 2 таблицами: "клиенты" и "оплата". В "клиентах" 2 поля: лицевой и наименование. В "оплате" 3 поля: лицевой, наименование и сумма.
Необходимо из Excel файла добавить данные в "оплату". В экселе только два поля: лицевой и сумма. Добавить лицевой и сумму у меня получилось. А вот как добавить лицевой, сумму и наименование из таблицы клиентов не пойму.
Если путано, могу уточнить
Использую ADO.

procedure TForm1.btn2Click(Sender: TObject);
 var
  lic:Integer;
  Sum_opl:Real;

 begin

  with DBGrd2.DataSource.DataSet do
  begin
   //иду по экселю и извлекаю нужные данные
    DBGrd2.DataSource.DataSet.First;
    lic:=dbgrd2.DataSource.DataSet.FieldByName('л-сч').AsInteger;
    Sum_opl:=dbgrd2.DataSource.DataSet.FieldByName('Сума').AsFloat;
    while not DBGrd2.DataSource.DataSet.eof do
    begin
     lic:=dbgrd2.DataSource.DataSet.FieldByName('л-сч').AsInteger;
     Sum_opl:=dbgrd2.DataSource.DataSet.FieldByName('Сума').AsFloat;
     //   иду по базе клиентов и чё делать не знаю
      with dbgrd3.DataSource.DataSet do
       begin
        // вставляю в базу оплаты нужные данные
          with dbgrd1.DataSource.DataSet do
           begin
           Insert;
           FieldByName('N_dog').Value :=lic;
           FieldByName('K opl_v').Value:=Sum_opl;
           end;

       end;
        DBGrd2.DataSource.DataSet.Next;

    end;
  end;
  end;
end.

[Yurk@]

навскидку

tblOplata.Open;
tblClients.Open;
// идём по экселю и читаем "лицевой" и "сумму" в licVal и sumVal
tblClients.Locate('licevoy', licVal, []); // ищем наше наименование по лицевому (licVal)
tblOplata.Insert;
try
 tblOplata.FieldByName('licevoy').asInteger:=licVal;
 tblOplata.FIeldByName('oplata').asCurrency:=sumVal;
 tblOplata.FiledByName('naimenovanie').AsString:=tblClients.FieldByName('naimenovanie').AsString;
 tblOplata.Post;
 Except
 // сообщение об ошибке
 end;

[alexvav]

Yurk@, спасибо! Локейт сработал.