Private Sub updatePicture(fld As ADODB.Field, diag As CommonDialog)
Const BlkSize = 1024
Dim sourcefile As Integer
Dim FileLength As Long
Dim LeftOver As Long
Dim Numblocks As Integer
Dim Chunk() As Byte
Dim i As Integer
sourcefile = FreeFile
Open diag.FileName For Binary Access Read As sourcefile
FileLength = LOF(sourcefile)
LeftOver = FileLength Mod BlkSize
Numblocks = (FileLength - LeftOver) / BlkSize
ReDim Chunk(BlkSize)
For i = 1 To Numblocks
Get sourcefile, , Chunk
fld.AppendChunk Chunk
Next i
ReDim Chunk(LeftOver)
Get sourcefile, , Chunk
fld.AppendChunk Chunk
Close sourcefile
End Sub