VB中怎么用image图片框显示access中的图片

有两种情况：
1）access中的是图片的路径，这时直接用image控件的loadpicture方法
2）access中的图片是二进制数据。
要是第二种情况，我们使用一下方法。
1.首先从数据库中读取二进制数据并且保存到一个数组里。
2.把二进制数据写到磁盘上，因此生成一个图片。
3.利用这个图片的地址来现实图片。
详细代码是一下（请应用microsoft activeX dataobjects 2.7 对象）

Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With

Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close