VB read Image from SQL as binary

Write or Update:
    mRs.Fields("qmimage").AppendChunk GetBitsFromFile()

Private Function GetBitsFromFile() As Byte()
    If Image1.Tag = "" Then Exit Function
    Dim mfso As New FileSystemObject
    If Not mfso.FileExists(Image1.Tag) Then Exit Function
    
    Dim mDataBits() As Byte
    Dim FreeID As Integer
    FreeID = FreeFile
    Open Image1.Tag For Binary As #FreeID
    ReDim mDataBits(LOF(FreeID) + 1)
    Get #FreeID, , mDataBits
    Close #FreeID
    GetBitsFromFile = mDataBits
End Function


Read:
    Dim L as long
    L = mRs.Fields("qmimage").ActualSize
    ShowJpgFromBits Image1, mRs.Fields("qmimage").GetChunk(L)

Private Sub ShowJpgFromBits(Pic As Object, mDataBits() As Byte)
  On Error Resume Next
    Dim sI As String
    Dim FreeID As Integer
    sI = gAppPath & "qm.jpg"
    FreeID = FreeFile