Как в базу поместить картинку из файла?

Dim dbTest As Database
Dim rstAlbum As Recordset
Dim FileLen&, X%, lngOffset&, Chunks%, lngTotalSize&
Dim Arr() As Byte
Const ArrSize As Integer = 16384
 
Sub ReadPictureFromDb()
 
On Error Resume Next
 
Open 'd:picture.gif' For Binary Access Write As #1
lngTotalSize = rstAlbum!Picture.FieldSize
Chunks = lngTotalSize  ArrSize
Fragment = lngTotalSize Mod ArrSize
 
ReDim Arr(ChunkSize)
Arr() = rstAlbum!Picture.GetChunk(lngOffset, ArrSize)
Put #1, , Arr()
lngOffset = lngOffset + ArrSize
 
With rstAlbum
 
Do While lngOffset < lngTotalSize
Arr() = !Picture.GetChunk(lngOffset, ArrSize)
Put #1, , Arr()
lngOffset = lngOffset + ArrSize
Loop
Close #1
.Close
 
End With
 
End Sub
 
Sub SavePictureToDb()
 
rstAlbum.AddNew
 
Open 'c:picture.gif' For Binary Access Read As #1
 
FileLen = LOF(1)
Chunks = FileLen  ArrSize
Fragment = FileLen Mod ArrSize
 
ReDim Arr(Fragment)
 
With rstAlbum
Get #1, , Arr()
 
!Picture.AppendChunk Arr()
ReDim Arr(ChunkSize)
For I = 1 To Chunks
Get DataFile, , Arr()
!Picture.AppendChunk Arr()
Next
Close #1
.Update
 
End With
 
End Sub
 
Private Sub Form_Load()
 
Set dbTest = OpenDatabase('d:db1.mdb', True)
Set rstAlbum = dbTest.OpenRecordset('select * from Album', dbOpenDynaset)
 
SavePictureToDb
ReadPictureFromDb
 
Set rstAlbum = Nothing
dbTest.Close
 
End Sub