帮我找找错误的原因，很急，先谢了！

Question

Dim  temp  As  Variant  
Open  "d:\aa.doc"  For  Binary  As  #1  
If  Adodc1.Recordset.Fields(3).ActualSize  <  1  Then  
     MsgBox  "该文件内容为空！"  
     Exit  Sub  
Else  
     Do  
         temp  =  Adodc1.Recordset.Fields(3).GetChunk(16384)  
         If  IsNull(temp)  Then  Exit  Do  
         data  =  temp  
         Put  #1,  ,  data  
     Loop  While  LenB(temp)  =  16384  
     Close  #1  
End  If  
 
我这段代码从数据库的一个image字段里(adodc1.recordset.fields(3))读取内容存放到aa.doc文件，可是读取的结果总比原来image里的字节数要多，而且aa.doc文件打开也是乱吗，请问到底怎么回事呀？  
（数据库里image类型字段存放的内容也是将一个原有的.doc文件上传的）  

Answer 1

http://community.csdn.net/Expert/topic/3040/3040090.xml?temp=.2478601

Answer 2

http://community.csdn.net/Expert/topic/2888/2888246.xml?temp=.5203516

Answer 3

http://community.csdn.net/Expert/topic/2888/2888246.xml?temp=.5203516

Answer 4

我知道了
把temp和data定义成byte型的动态数组就可以了。