[JoysticK]

Pues es muy extraño esto, no se porque ha empezado a devolverme este mensaje al hacer el open de la siguiente función la cosa es la siguiente, un formulario llama a otro f2.show, en el onshow llamo a esta función, trabajo normalmente con el f2, lo cierro, vuelvo al primer formulario, y si vuelvo a llamar al f2 me salta error en el open cuando esta haciendo exactamente lo mismo que la primera vez que lo abri...

Código Delphi [-]
Function  ContarReg(Tabla:String;Campo:String;Variante:String;BD:TIBDatabase):Integer;
Var
  Contador:TibQuery;
Begin
  Contador := Tibquery.Create(Nil);
  Contador.database := BD;
  Contador.Close;
  Contador.SQL.Clear;
  Contador.SQL.Add('Select Count(' + (Campo) + ')');
  Contador.SQL.Add('From '+ (Tabla));
  If Trim(Variante) <> '' then
     Contador.SQL.add((Variante));
  Try
    Contador.Open;
    Result := Contador.Fields[0].AsInteger;
  Except
    Result := 0;
  End;
  Contador.Close;
  Contador.free;
End;