Select muito lento !

Ola caros amigos ,


Estou com um problema em um select que executo em meu banco de dados:

SQL.Clear;

SQL.Add(´SELECT DISTINCT ITENS.CODPRODUTO,ITENS.CFOP, PRODUTO.DESCPROD, ITENS.S_TRIB,ITENS.UND,´);
SQL.Add(´ITENS.IPI, ITENS.ICMS,ITENS.REDUCAO_BASE_ICMS, ITENS.DATAMOV, ITENS.BASE_ICMS_SUB´);
SQL.Add(´FROM ITENS,PRODUTO WHERE (ITENS.CODPRODUTO = PRODUTO.CODPRODUTO)and´);
SQL.Add(´DOCUMENTO IN (´);
SQL.Add(´SELECT NFNUMERO FROM NFVENDAS WHERE´);
SQL.Add(´(NFVENDAS.DATAMOV BETWEEN :datahora_ini AND :datahora_fim) AND (´);
SQL.Add(´(MODELO_NF = ´´01´´) OR´);
SQL.Add(´(MODELO_NF = ´´1A´´) OR´);
SQL.Add(´(MODELO_NF = ´´03´´) OR´);
SQL.Add(´(MODELO_NF = ´´06´´) OR´);
SQL.Add(´(MODELO_NF = ´´22´´)))´);

SQL.Add(´union´);

SQL.Add(´SELECT DISTINCT ITENNFC.CODPRODUTO,ITENNFC.CFOP, PRODUTO.DESCPROD, ITENNFC.S_TRIB,ITENNFC.UND,´);
SQL.Add(´ITENNFC.IPI, ITENNFC.ICMS, ITENNFC.REDUCAO_BASE_ICMS, ITENNFC.DATAMOV, ITENNFC.BASE_ICMS_SUB´);
SQL.Add(´FROM ITENNFC, PRODUTO WHERE (ITENNFC.CODPRODUTO = PRODUTO.CODPRODUTO)and´);
SQL.Add(´NFCOMPRA IN (´);
SQL.Add(´SELECT NFNUMERO FROM NF_ENTRADA WHERE´);
SQL.Add(´(DATAENTRADA BETWEEN :datahora_ini AND :datahora_fim) AND (´);
SQL.Add(´(MODELO_NF = ´´01´´) OR´);
SQL.Add(´(MODELO_NF = ´´1A´´) OR´);
SQL.Add(´(MODELO_NF = ´´03´´) OR´);
SQL.Add(´(MODELO_NF = ´´06´´) OR´);
SQL.Add(´(MODELO_NF = ´´22´´)))´);


ParamByName(´datahora_ini´).Asdate := DataHora_Inicial;
ParamByName(´datahora_fim´).Asdate := DataHora_Final;


Uso este select para selecionar a ocorrência de produtos na venda e compra e seleciona apenas uma ocorrência não importa onde.

Só que esta demorando uma eternidade!

Uso Firebird 1.5 e clientedataset


Desde já agradeço


Hugo Fabrício