DM.sqlConsulta.Close;
    DM.cdsConsulta.Close;
    with DM.sqlConsulta do
    begin
      Close;
      CommandText :=
        'select * from PESSOAL_PES where pes_tipo = ' + QuotedStr('CL') +
        ' order by pes_nome';
      ExecSQL(False);
      Open;
    end;
    DM.sqlConsulta.Open;
    DM.cdsConsulta.Open;