Всем доброй ночи. Пытаюсь вытащить фаил жпг из таблицы. Задача состаит чтоб показать изображение на форме. Дошол до того что нужно сохранить фаил на диске и после прилинковать к пикчер боксу. Делаю седушее

Private Sub Command4_Click()
 Dim rs As DAO.Recordset
 Dim Buffer() As Byte
 Dim nFile As Integer
 Set rs = CurrentDb.OpenRecordset("image", DAO.dbOpenDynaset, dbSeeChanges)
 rs.FindFirst "id=" & 4
 If Not rs.NoMatch Then
    Path = Trim$(Path)
    If Len(Path) = 0 Then
       Path = Left$(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
    ElseIf InStr("\:", Right$(Path, 1)) = 0 Then
       Path = Path & "\"
    End If
    Path = "D:\Projects\magaziis programa iveri\img\img_resize\10.jpg"
    nFile = FreeFile()
    Open Path For Output Access Write Lock Write As #nFile
    Close #nFile
    Open Path For Binary Access Write Lock Write As #nFile
    Buffer = rs("photo")

    Close #nFile
    Erase Buffer
 End If
 Set rs = Nothing

 End Sub

Можете помочь закончить код.. Ану или куда деваутся сохранённый фаил или осюда как показать в пикчербокс.
Заранее всем Спасибо

http://www.sql.ru/forum/1244183/eksport-izobrazheniya