procedure TForm2.FormActivate(Sender: TObject);
begin
Adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT Dta101.codigo, Dta101.codbar, Dta101.nombre,Dta101.salario');
adoquery1.SQL.Add('Tmpaus.codbar, Tmpaus.ausencias');
adoquery1.SQL.Add('FROM dta101, tmpaus') ;
adoquery1.SQL.Add('where Dta101.codbar = Tmpaus.codbar');
showmessage('Aqui va bien'); adoquery1.Active:=True;
end;