[Chente(rMan)]

Que tal JanoRod, mira de entrada veo que tienes un adoConnection que no se para que lo utilizas si a cada adoquery le vuelves a pasar la cadena de conexion.

Código Delphi [-]
conexion:=('Provider=Microsoft.Jet.Oledb.4.0;Data source=c:\inventario.mdb;Persist Security Info=false');
adoconnection1.ConnectionString :=conexion;
adoconnection1.LoginPrompt := False;
adoconnection1.connected := True;
adoquery1.Connection := adoconnection1
adoquery1.Open ;
adoquery2.Connection := adoconnection1
adoquery2.Open ;

vamos clarificando un poco mas el código.

Código Delphi [-]
with adoquery1 do begin
  Close;
  SQL.clear;
  SQL.add (consultaSQL);
  open;
  //Aqui podrias utilizar algo asi...
  if IsEmpty then
     //lo que quieras hacer...
  else
    //de lo contrario...
end;

Espero por lo menos haberte ayudado un poco en clarificar el código.


Saludos.

Vicente López.