Редактирование значение поля

[aleksskay]

Вот Хочу в четвертое поля добавить новые значения
Используется адо. У меня вылетает ошибка. Почему? я перевожу в режим редактирование и все равно.

DM.atSubject.Open;

                //adoQuery

  with   dm.aquSelSuB do begin
    Close;
    SQL.Clear;
    SQL.Add('Select '+cbSubject.text+' FROM '+
    DM.ataValues.TableName+'');
    Open;

  dm.atDnevnik.Edit;
  dm.atDnevnik.Fields[4].Clear;


   if dm.atDnevnik.CanModify then
   begin

      while not Eof do begin

        dm.atDnevnik.First;     // adoTable 

        dm.atDnevnik.Fields[4].Value := dm.aquSelSub.Fields[0].asstring;
        dm.atDnevnik.Next;
        next;  // for aquSelSuB
      end;
      dm.atDnevnik.Post;
   end;

[Stilet]

dm.atDnevnik.Edit();
dm.atDnevnik.Fields[4].Value := dm.aquSelSub.Fields[0].asstring;

[aleksskay]

Так тоже не работает

[Аватар]

Edit для каждой обновляемой записи нужно делать, а не один раз для всего датасета