with AdoQuery1 do
begin
Append;
FidldByName('字段名').AsString :='XXX';//赋值
Post;
end;
end;