List Index Out of Bounds(1)

[Paulao]

Siempre que pongo mi Provider en Run Time, me lo da este error, pero si yo pongo fijo este error no viene, pero yo necesito que mi Provider sea en Run Time y no fijo. Si yo pongo una Query asi: Select * from tabla, con Provider en Run Time, este error no me lo da, pero si pongo mi select real, entonces viene el error. Mi query esta abajo:

Código Delphi [-]
Cds.Close;
  Cds.ProviderName := 'dspTB_SAC_NF_CAPEADOR';
  Cds.CommandText := ' SELECT'+
                     '  SUM(COALESCE(TB_SAC_NF_CAPEADOR.VL_BRUTO,0) + COALESCE(TB_SAC_NF_CAPEADOR.VL_DESC_ACR,0)) AS VL_LIQ' +
                     ' FROM' +
                     '  TB_SAC_NF_CAPEADOR' +
                     ' WHERE' +
                     '  (TB_SAC_NF_CAPEADOR.CD_FUNC = 99999) AND' +
                     '  (TB_SAC_NF_CAPEADOR.ST_CANC = 0) AND' +
                     '  ((TB_SAC_NF_CAPEADOR.SR_NF = ''D2'') OR  ((TB_SAC_NF_CAPEADOR.SR_NF = ''B2'') AND' +
                     '  (TB_SAC_NF_CAPEADOR.CD_CFOP = 6102)))';
  Cds.Open;