Импорт из Excel в Бд Access

[Black_Wolf]

Есть БД Access с таблицами ADOTable1 где Фамилия Имя Отчесво Место работы... И таблица ADOTable_adres где адрес этого клиента.

Все данные уже есть в Excel нужно как их импортировать сохранив при этом их связь

Пробовал так не не вышло

begin
Excel:=CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Workbook:=Excel.Workbooks.Open('C:\Users\Vlad\Desktop\Проект\1.xls');
Sheet:= WorkBook.ActiveSheet;
//st:= Sheet.cells[1,1];
ima:= Sheet.cells[2,4];
fam:= Sheet.cells[2,2];
otc:= Sheet.cells[2,3];
//data          Sheet.cells[2,4];
zaved:= Sheet.cells[2,8];
obr:= Sheet.cells[2,9];
  rab:=Sheet.cells[2,10];
  cpec:=Sheet.cells[2,11];
    gorod:=Sheet.cells[2,12];

Excel:= UnAssigned;
DataModule1.ADOTable1.Insert;
   DataModule1.ADOTable_adres.insert;
DataModule1.ADOTable1.FieldByName('Имя').AsString:=ima;
DataModule1.ADOTable1.FieldByName('Фамилия').AsString:=fam;
DataModule1.ADOTable1.FieldByName('Отчество').AsString:=otc;
//DataModule1.ADOTable1.FieldByName('Дата рождения').AsString:=;
   DataModule1.ADOTable1.FieldByName('Вуз').AsString:=zaved;
   DataModule1.ADOTable1.FieldByName('Образование').AsString:=obr;
   DataModule1.ADOTable1.FieldByName('Место работы').AsString:=rab;
   DataModule1.ADOTable1.FieldByName('Специальность').AsString:=cpec;

 // Таблица адрес


        DataModule1.ADOTable_adres.FieldByName('Город').AsString:=gorod;
         DataModule1.ADOTable_adres.Post;
       DataModule1.ADOTable1.Post;
end;

[xxbesoxx]

Все данные уже есть в Excel нужно как их импортировать сохраниТ

Суда смотрели ? http://programmersforum.ru/showthread.php?t=250331