vb在sql数据库中存取image类型图片的问题，很急，在线等！

Question

数据库中的产品表中，有7个产品图片的字段。
存取图片代码已写好。但是在读取产品图片的时候，一连打开7张图片，速度很慢。
现向高手请教，有没有好办法，能够提高读取图片的速度。
读取代码如下
Set iStm = New ADODB.Stream             '将二进制转化成为图片文件，并存储在目录下
If Not nFso.FileExists(App.Path + "\Test.jpg") Then
Else
  nFso.DeleteFile (App.Path + "\Test.jpg"), False
End If
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write rs.Fields("JPG")
        .SaveToFile App.Path & "\Test.jpg"
        .Close
    End With
    Image1.Picture = LoadPicture(App.Path & "\Test.jpg")