增加目录下的图片到一个已经存在的记录集，有点难，高手请进!!!

[wjf7688]

已经存在一个记录集，现在需要在记录集中增加一个字段，
然后填充目录下的图片到记录集中的新增字段，
现在的问题是如何定义字段类型？？？
rst.Fields.Append "F_Picture",adBinary', adIUnknown
在定义字段类型时出错，此处该为什么类型呢，
哪位高手还有其它什么方案吗？高手相送，

[foolishtiger]

Const BlockSize = 3000
'打开文件,取得文件长度
Open .FileName For Binary As #1
lngFileLenth = LOF(1)

'读文件时的开始位置
lngPosition = 0

'取块数,确定循环次数
lngBlocks = lngFileLenth \ BlockSize

'得到最后一块的长度,因为它可能小于其它块的长度
lngLastBlock = lngFileLenth Mod BlockSize

'填加记录
rsBinary.AddNew
'rsBinary.Fields("FileName") = GetFileName(.FileName)

'存除最后一块外的文件块
For lngBlockIndex = 1 To lngBlocks
ReDim btyGet(BlockSize)
Get #1, , btyGet()
rsBinary.Fields("content").AppendChunk btyGet()
lngPosition = lngPosition + BlockSize
Next

'如果有最后一块就存它
If lngLastBlock > 0 Then
ReDim btyGet(lngLastBlock)
Get #1, , btyGet()
rsBinary.Fields("content").AppendChunk btyGet()
End If

'更新数据库
rsBinary.Update
Close #1