clientdataset datenmenge weder im editier noch im einfügemodus

[Kevin11]

Hallo,

ich bekomme den Fehler, der im Titel steht in folgender Funktion:

Delphi-Quellcode:

function AddPELehrg(_Bereich: string;_ID: Integer;  _Nr, _Name, _Lehrgang, _Von, _Bis, _Ort: String; _Best :integer): Boolean;
var
  VZqLehrgänge       : TClientDataSet;
  VZqTemp            : TADOQuery;
begin
Result := True;

  Form2.Memo1.Lines.Add(#9#9#9+'Lehrgänge');


  Result := False;

  VZqLehrgänge        := Form2.ClientDataSet1;
  with VZqLehrgänge do
  begin
    Close;
//    Connection  := FFBConnection;
    CommandText    := 'SELECT * FROM '+_Bereich+'_LEHRG';
    Open;

    if not Active then
      Active := True;

    if (State <> dsEdit) or (State <> dsInsert) then
    begin
      Edit;
    end
    else
    begin
      Insert;
    end;
          FieldByName(_Bereich+'_ID').Value              := GetMaxID(_Bereich+'_LEHRG', Form2.SQLConnection);

          FieldByName(_Bereich+'_INDEX').Value           := _ID;
          FieldByName(_Bereich+'_NR').Value              := GetString(_Nr,   15);
          FieldByName(_Bereich+'_NAME').Value            := GetString(_Name, 30);

          FieldByName(_Bereich+'_LEHRG_LANG').Value       := _Lehrgang;

          try
//            if _Von <> '' then
            if Length(_Von) = 10 then
            begin
              FieldByName(_Bereich+'_ZEITRAUM_VD').AsString     := _Von;
            end;
          except
          end;
          try
            if Length(_Bis) = 10 then
              FieldByName(_Bereich+'_ZEITRAUM_BD').AsString     := _Bis;
          except
          end;

          FieldByName(_Bereich+'_LEHRG_ORT').Value       := _Ort;


          FieldByName(_Bereich+'_LEHRG_OK').Value      := _Best;

        ApplyUpdates(0);
        Post;

    Close;
  end;
  Result := True;

  FreeAndNil(VZqTemp);
  FreeAndNil(VZqLehrgänge);
end;

Ich find keinen Fehler.