Импорт из Excel в Access

[AD_min]

Подскажите пожалуйста я делаю импорт(код ниже), и после импорта у меня появляется процесс EXCEL.exe и он не плохо оперативы жрёт притом при каждом импорте появляется новый процесс EXCEL.exe, как мне его завершить.


procedure TForm1.Button1Click(Sender: TObject);
var
Workbook, Sheet: variant;
st : String;
begin
Excel:=CreateOleObject('Excel.Appli cation');
Excel.DisplayAlerts:=False;
Workbook:=Excel.Workbooks.Open('пут ь к Excel'); {Пример:Workbook:=Excel.Workbooks.O pen('c:1.xls')}
Sheet:= WorkBook.ActiveSheet;
st:= Sheet.cells[номер строки,номер столбца] ;{Пример: st:= Sheet.cells[6,3] }
Excel:= UnAssigned;
ADOTable1.Insert;
ADOTable1.FieldByName('Названия поля в таблице Ассеss').AsString:=st;
ADOTable1.Post;
end;