ADOQuery2.close;
ADOQuery2.sql.clear;
ADOQuery2.sql.add('select * from (access中表名) where 条件);
ADOQuery2.open;
ADOQuery2.first;
while not ADOQuery.eof do
begin
ADOQuery1.Append;
ADOQuery1['字段1']:=ADOQuery2['字段1];
...
...
ADOQuery1['字段n']:=ADOQuery2['字段2'];
ADOQuery1.Pst
end;
ADOQuery1.close;
ADOQuery2close;