运用loadpicture函数时出现错误

Dim strpath As String
   
      Dim rs As Recordset
      Dim StmPic As ADODB.Stream
        Dim strpictemp As String
        On Error GoTo err
         '读取显示数据库中对应ID和名字的图像
         Set rs = CurrentDb.OpenRecordset("select Picfile from picture where id='140722'and PicName = '1st.jpg'")
         strpictemp = "c:\users\chenyoubin\desktop\1st.jpg"
         Set StmPic = New ADODB.Stream
         With StmPic
             .Type = adTypeBinary
             .Open
             .Write rs.Fields("Picfile")       '写入数据库中的数据至Stream中
             .SaveToFile strpictemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
            .closeaaa
         End With
         Me!image.Picture = LoadPicture(strpictemp) '用Picture控件显示图像
    Exit Sub
err:
      MsgBox err.Description
End Sub
我在access窗体里添加了一个Image控件(此时没有装载图片)和一个按钮,点击按钮运行，图片可以写入临时文件，但是无法读取到image控件上面。image.picture=loadpicture(strpictemp)，这一句代码有什么问题吗？调试后上面加粗代码有问题。

一运行就出错,提示"运行时错误,2220"无法打开文件“20807080”