Перенос данных из одной базы данных в другую

with ABSQuery do try
  Open;
  while not eof do begin
//здесь читаете запись, формируете запрос на добавление и добавляете данные в access     
     Next;
  end;
finally 
  Close;
end;

with ABSQuery do try
  Open;
  while not eof do begin

//здесь читаете запись, формируете запрос на добавление и добавляете данные в access

SQL.Clear;
SQL.Add('SELECT Enum FROM Grup where ID <= 3');
ABSQuery1.Active:=True;

with ABSQuery do try
  SQL.Text:='select * from имя таблицы'; //замените "имя таблицы" на реальное название таблицы
//открываем запрос (читаем данные из исходной таблицы)
  Open;
//считываем данные пока не достигнем конца таблицы
  while not eof do begin
//здесь читаете запись, формируете запрос на добавление и добавляете данные в access     
 
//переходим на следующую запись в исходной таблице
     Next;
  end;
finally 
  Close;
end;

ADOQuery1.SQL.Add('INSERT INTO Grup(ID, Enum, Name) VALUES(???)');

ADOQuery1.SQL.Text:='INSERT INTO Grup(ID, Enum, Name) VALUES(:p1,:p2,:p3)';
ADOQuery1.Parameters.ParamByNmae('p1').asInteger:=ABSQuery.Fields[0].asInteger;
ADOQuery1.Parameters.ParamByNmae('p2').asString:=ABSQuery.Fields[1].asString;
ADOQuery1.Parameters.ParamByNmae('p3').asString:=ABSQuery.Fields[2].asString;
ADOQuery1.ExecSQL;