Fórum Erro consulta com DBLookup #369455

var
  CodMed : String;
Begin
  DM1.Medic.Locate(´MED_MEDICO´, DBPesquisa2.Text , []);
  CodMed := DM1.MedicMED_CODMEDICO.Value;
  With DM1.IBQuery1 Do
  Begin
    Close;
    SQL.Clear;
    SQL.Add( ´select C_EXAME, NOME, count(C_EXAME), VALOR´ );
    SQL.Add( ´from PACEXA´ );
    SQL.Add( ´Where  DATA >= :DAT1 and DATA <= :DAT2 ´);
    If DBPesquisa2.Text <> ´´ Then
    Begin
      SQL.Add( ´ and MED_CODMEDICO = :COD ´ );
      Params[02].AsString := CodMed;
    End;
    SQL.Add( ´Group by C_EXAME, NOME, VALOR´ );
    Params[00].AsDate   := DateEdit1.Date;
    Params[01].AsDate   := DateEdit2.Date;
    Open;
    RxCalcEdit1.Clear;
    While not Dm1.IBQuery1.Eof do begin
    RxCalcEdit1.Value := RxCalcEdit1.Value + DM1.IBQuery1Total.Value;
    Dm1.IBQuery1.Next;
    end;
    If IsEmpty Then
    Begin
      MessageDlg(´Não há dados com as informações solicitadas!´,
                  MtInformation,[MbOk],0);
      Exit;
    End;
  End;