如何将data1.mdb的表tab1的所有记录添加到data2.mdb的表tab1中(40分)

data1.mdb 和 data2.mdb 这两个文件我分别用两个ADOconnection 来连接，请用详细的代码告诉我如何将data1。mdb的A表添加到data2。mdb的B表中

用一个ADODATASET，connection为adoconnection1，
一个adocommand,connection为adoconnection2，
with adodataset do
begin
close;
commandtext:='select * from a';
open;
end;
if adodataset.recordcount>0 then
begin
adodataset.first;
while not adodataset.eof() do
begin
adocommandtext.commandtext:='insert into b fields values('+adodataset.fieldbyname('')+'...)';
adocommandtext.Execute;
adodataset.next;
end;
end;