Private Sub WritePicToRs()
    Dim DataFile As Integer, strPathPicture As String, FileLen As Long
    Dim Chunk() As Byte, Chunks, Fragment As Integer, i As Integer
    Const ChunkSize As Integer = 2384
    
    adors.AddNew
    DataFile = 1
    Open strPathPicture For Binary Access Read As DataFile
    FileLen = LOF(DataFile)
    If FileLen = 0 Then: Close DataFile: adors.Close: Exit Sub
    Chunks = FileLen \ ChunkSize
    Fragment = FileLen Mod ChunkSize
    ReDim Chunk(Fragment)
    Get DataFile, , Chunk()
    adors!MyPhoto.AppendChunk Chunk()
    ReDim Chunk(ChunkSize)
    For i = 1 To Chunks
       Get DataFile, , Chunk()
       adors!MyPhoto.AppendChunk Chunk()
    Next i
    Close DataFile
End Sub