高手才能回答的问题

Question

Dim binPicture() As Byte         '用于读取相片文件内宾
Dim lngFileSize  As Long         '相片文件的实际长度
Dim intDataFile As Integer       '定义读取相片文件的文件号   intDataFile = 1
   Open txtFileName For Binary Access Read As intDataFile
   lngFileSize = LOF(intDataFile)
   ReDim binPicture(lngFileSize)
   Get intDataFile, , binPicture()
   Close intDataFile
   rsEmployee("EmpImage").AppendChunk binPicture()

Answer 1

你的 Recordset  是怎么打开的？不会是以只读方式打开的吧？
给点代码？