Richedit的内容更新到Access的备注字段时出错?

点击执行时出现错误提示"缺少更新或刷新的键列信息",何故?程序如下:
procedure TForm1.Button2Click(Sender: TObject);
var
  aid:string;
  ms: TMemoryStream;
  ADOquery1 : TADOQuery;
begin
  ms := TMemoryStream.Create;
  try
    REdit1.Lines.SaveToStream(ms);
    ms.Seek(0, 0);
    Aid:=inttostr(Myquery.FieldByName('aid').AsInteger);
    ADOQuery1 := TADOQuery.Create(self);
    ADOQuery1.Connection := myconn;
    ADOQuery1.SQL.clear;
    ADOQuery1.SQL.Add ('select body from mycontent where aid='+ aid);
    ADOQuery1.open;
    ADOQuery1.Edit;
    TBlobField(ADOQuery1.FieldByName('body')).LoadFromStream(ms);
    ADOQuery1.UpdateRecord;
    ADOQuery1.Post;
    ADOQuery1.Close;
    ADOQuery1.Free;
  finally
    ms.Free;
  end;
end;