RS - Рекордсет подключенный к таблице с файлами
RS("filebinary") - поле рекордсета в котором хранится содержимое файла
RS("filename") - поле рекордсета в котором хранится имя файла

        Dim Filedata() As Byte, filename
        filename = RS("filename")
        ReDim Filedata(Len(RS("filebinary")) -  1 )
        Filedata() = RS("filebinary")

        Open filename For Binary Access Write As # 1 
            Put # 1 , , Filedata()
        Close # 1 

Public Sub Loadlib2db(filename As String)

 Dim RS As New ADODB.Recordset
 Dim m_value

  'загрузка в массив 
 Dim Filedata() As Byte
 ReDim Filedata(FileLen(filename) -  1 )
 Open filename For Binary Access Read As # 1 
    Get # 1 , , Filedata()
 Close # 1 

  'загрузка в Таблицу 
 m_value = Filedata()
 RS.Open "select * from MSysLibFiles where id = 0", CurrentProject.Connection, adOpenDynamic,  adLockOptimistic
 RS.AddNew
 RS("filebinary") = m_value
 RS.Update
 RS.Close
 Set RS = Nothing
End Sub