这个很简单,你另外用一个ADOquery,
ADOQuery的ConnectString指向ACESS表
用下面语句实现
with Adoquery1 do
begin
  first;
 while not eof do
 begin
  Adoquery2.Close;
  Adoquery2.SQL.Text:='insert……';
  Adoquery2.Parambyname('field1').Values:=Adoquery1.fieldbyname('field1').Values;
……;
  Adoquery2.ExecSQL;
  next;
end;
  first;
end;