Ajuda com ClientDataSet

Estou com a seguinte instrução no meu programa e está dando a seguinte mensagem:
´commandtext changes not are allowed´.

Alguem pode me dar uma dica.

Eis o trecho do programa:
with cds_Consultar do
begin
Close;

CommandText := ´select COD_TIPO, DESCRICAO, ST_ATIVO from TIPO_PESSOA´;
If me_Pesquisa.Text <> ´´ then
CommandText := CommandText + ´ where UPPER( DESCRICAO ) like ´ + QuotedStr( AnsiUpperCase( me_Pesquisa.Text ) + ´¬´ );

CommandText := CommandText + ´ order by DESCRICAO´;

Open;

if IsEmpty then
begin
MessageDlg(´Nenhum registro encontrado!´ + #13 + ´Refaça a pesquisa´, mtInformation, [mbOk], 0);
if me_pesquisa.CanFocus then
me_pesquisa.SetFocus;
end;
end;

Obrigrado pela colaboração

Rodolfo