vba stream写入文件失败

vba stream写入文件失败
Dim StmPic As ADODB.Stream
Set StmPic = New ADODB.Stream
StmPic.Type = adTypeBinary '指定流是二进制类型
StmPic.Open '将数据获取 到Stream对象中
StrPicTemp = "C:\temp" '临时文件,用来保存读出的"长二进制"文件,一般是.RAR格式的压缩文件！！

       rs.MoveLast
    NO_null_JS = 0 '非null字段计数
     Do While Not rs.EOF()
     
       If (Not IsNull(rs("Image"))) Then '若指定字段照片不为null 则读出并显示之
           NO_null_JS = NO_null_JS + 1
         
           
           With StmPic
               '.Type = adTypeBinary
               '.Open
               .Write rs("Image")        '读取数据库中的数据至Stream中
               .SaveToFile "C:\temp"         '将Stream中数据写入临时文件中 StrPicTemp=.\tmp.tmp      '写入失败

               '.Close
            End With
            'MsgBox "写入字段RS1_ZP(3) 到 " & StrPicTemp
            'Exit Sub
        End If
        rs.MoveNext
    Loop