var
  Memb: TMemoryStream;
begin
try
  adoquery1.Close;
  adoquery1.SQL.Clear ;
  adoquery1.SQL.Text:='select TestText from Test where id=1 ';
  adoquery1.Prepared;
  adoquery1.Open;
  adoquery1.Edit;  Memb:=TmemoryStream.Create;           //创建内存数据流
  OleContainer1.SaveToStream(Memb);     //把Ole文件数据保存到流
  Memb.Position:=0;
  TBlobField(adoquery1.FieldByName('TestText')).LoadFromStream(Memb);  //将数据流存入到字段中
  adoquery1.Post;finally
  Memb.Free;
end;
end;数据库采用Access字段是字节型的,程序运行到
adoquery1.Post;
出错!!!