Access2000数据库VarBinary字段存取问题?

Question

我在程序中动态建立了一个表如下:
CREATE TABLE mod(
       Type short,
       Font VarBinary(276),
       Rect VarBinary(16),
       Name VarChar(255)
       )
Font字段用于保存字体相关信息
Rect字段保存TRect在将数据保存到表中时总是显示错误'Errors occurred',代码如下:
var
  rec: TRect
begin
   .
   .
  ADODataSet1.Append;
   .
   .
  TVarBytesField(ADODataSet1.FieldByName('Font')).SetData(@fb);
  TVarBytesField(ADODataSet1.FieldByName('Rect')).SetData(@rec);
  ADODataSet1.Post;
   .
   .
end;请大家给一个准确的答案,或解释以下VarBinary字段究竟如何正确读取!
我想,VarBinary与Blob是有区别的,Blob字段存取必须通过TADOBlobStream或TBlobStream注: 以上程序在Win98,Delphi 5环境中通过ADO访问数据库.

Answer 1

问题已经解决,
将TVarBytesField(ADODataSet1.FieldByName('Font')).SetData(@fb);
改为:
v := VarArrayCreate([0,Sizeof(fb)-1],VarByte);
p := VarArrayLock(v);
move(fb,p^,Sizeof(fb));
TVarBytesField(FieldByName('Font')).AsVariant := v;
VarArrayUnLock(v);
但是新的问题产生了：
1,SetData方法为什么怎么用.
2,表被更新后,Access2000不认识.