Fórum Abrir e fechar SQLDataSet #239715

Olá amigos, estou com problemas na chamada ao cadastro de bairros:

- Ao chamar meu formulário de cadastro de bairros:

procedure TfCadBai.FormShow(Sender: TObject);
begin
inherited;
DM.SQLDataSet_Bairros.Active := True;
DM.ClientDataSet_Bairros.Active := True;
cCodBai.SetFocus ;
end;

- Ao encerrar:

procedure TfCadBai.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
inherited;
DM.SQLDataSet_Bairros.Active := False;
DM.ClientDataSet_Bairros.Active := False;
end;

*************

Quando chamo na primeira vez, funciona perfeitamente, incluo, consulta, funciona tudo. Mas quando eu saio e acesso novamente, dá o seguinte erro:

Project siga.exe raised exception class EDatabaseError with message ´violation of PRIMARY ou UNIQUE KEY constraint ´IP_BAIRROS´ on table ´BAIRROS´

Uso Delphi 6 e firebird

************

Obrigado

Mario