adoquery1用select语句查询出的数据集可以在程序中编辑吗？

用select语句查询出数据到adoquery1中，但是为什么没办法用程序修改adoquery1中的一个记录的字段啊？用下面的代码提示错误：数据集不在编辑或插入状态。但我看了adoquery1.Canmodify属性，为真，用navigator控件也可以编辑数据，就是在程序中没办法，怎么办呢？谢谢！
procedure TForm1.Button1Click(Sender: TObject);
begin
  With Adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from table1');
    prepared;
    open;
  end;
  Adoquery1.Edit;
  Adoquery1.First;
  Adoquery1.FieldByName('name').AsString:='ChengJin';
  Adoquery1.Post;
end;