Fórum Erro: Closed dataset!!! #354961

óla Pessoal!

Qdo rodo meu sistema e tento fazer uma alterção, da esse erro d ... Closed dataset...

Sei q isso acontece qdo o CDS tá fechado, mas já verifikei tdo e está tdo ativo. Não estou coseguindo ver onde estou errando...

códigos abaixo:

tenho uma tabela de produtos com os seguintes campos

COD_PROD
CODLOCAL_PROD
TITULO_OBRA
DIMENSAO_OBRAend
COD_ARTISTA
ARTISTA( sub select)

No comandText do cdsproduto fiz um sub select para fazer uma consulta auxiliar na tabela Artista, e não precisar usar um DBLookupComboBox e não pesar o sistema, Qdo consulto um produto fuciona certim, então o subselect tá certo... .

select PROD.COD_PROD, prod.CODLOCAL_PROD, prod.TITULO_OBRA, prod.DIMENSAO_OBRA, PROD.cod_artista
(select ART.NOME_ARTISTA FROM ARTISTA ART WHERE ART.COD_ARTISTA = PROD.COD_ARTISTA) AS ARTISTA
from PRODUTO prod
where cod_prod =:cod_prod


no data module fiz uma procedure para alterar o artista

procedure TDM.AlteraArt(aCodArt: integer; aNome: string);
begin

cdsProduto.Edit;
cdsProdutoCod_Artista.AsInteger := aCodArt;
cdsProdutoArtista.AsString := aNome;
cdsProduto.Post;

end;

e no botão alterar artista colokei

try
Application.CreateForm(TfrmPesquisaArtista, frmPesquisaArtista);
dm.CDSArtista.Open;
frmPesquisaArtista.ShowModal;
if frmPesquisaArtista.ModalResult = mrOk then
begin

DM.AlteraArt(DM.CDSPesquisaArtistaCOD_ARTISTA.AsInteger, DM.SDSArtistaNOME_ARTISTA.AsString);

end;
finally
frmPesquisaArtista.Free;
end;


O erro acontece qdo eu tento alterar ou incluir um artista em um determinado produto, qdo um dou duplo clique no grid artistas, o artista selecionado não vai para o dbedit.

A linha marcada no erro é essa

try
application.CreateForm(TfrmCadastroProduto,frmCadastroProduto);
dm.CDSProduto.Open;
[color=red:d5d5dd6e11] frmCadastroProduto.ShowModal;[/color:d5d5dd6e11]

finally
frmCadastroProduto.Free;
end;
end;


alguém tem uma dica??

obrigada!


obs: BD Firebird, delphi 7 e paleta dbexpress