Fórum adoquery access #555768

galera sou novo por aqui to precisando de ajuda

tenho dois banco de dados chamados academia.mdb e academia1.mdb e os dois tem uma tabela chamada contasreceber

gostaria de copiar os 500 últimos registros da tabela contasreceber do banco academia.mdb pro contasreceber do banco academia1.mdb

usando while já fiz mas e muito lento


procedure TForm1.Button1Click(Sender: TObject);
begin
while not adotable1.eof do
begin
a:=0;
adotable2.Insert;
while a < adotable1.Fields.Count do
begin
adotable2.Fields[a].value := adotable1.Fields[a].value;
a:=a+1;
end;
adotable2.Post;
adotable1.next;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
begin
while not adotable2.eof do
begin
adotable2.next;
adotable2.delete;
end
end;

end;




gostaria de fazer pelo adoquery

procedure TForm1.Button4Click(Sender: TObject);
begin
begin
ADOQuery1.SQL.Clear;
adoquery2.SQL.Clear;
ADOQuery2.SQL.ADD('INSERT INTO contasreceber values');
ADOQUERY1.SQL.Add('SELECT * FROM contasreceber');
ADOQuery2.ExecSQL;
ADOQuery1.ExecSQL;
end;
end;
end.

mas não ta dando certo onde errei