用ADODB.Stream读取数据库中的二进制后,生成文件为什么打不开？

Dim stream As New ADODB.Stream

With stream
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write (recordset.Fields[0].Value)
.SaveToFile "c:\Test.xls"
End With
recordset.Close
stream.Close
-----------------------------------------

打开文件后会报错：
不能访问"Test.xls"，该文件可能是只读的，或者您要访问的位置是只读的，或者文件所在的服务器没有响应。