'==========================================================
' Назначение:
'       Сохранение файла в указанное поле таблицы
' Аргументы:
'       путь к файлу
'       набор записей (открытый для R/W. Указатель должен стоять на нужной записи)
'       имя поля для записи в него файла
' Автор: nibbles
' ==========================================================
Public Sub ufFileFromADOFieldSave(ByVal strPath As String, _
                                ByRef rst As ADODB.Recordset, _
                                ByVal strField As String)
Dim myStream As New ADODB.Stream
    
    Set myStream = New ADODB.Stream
    myStream.Type = adTypeBinary
    myStream.Open
    myStream.LoadFromFile strPath
    rst(strField).Value = myStream.Read
    myStream.Close
    Set myStream = Nothing
    
End Sub

Dim myStream As ADODB.Stream

'========================================================
' Назначение:
'       Извлечение файла из указанного поля таблицы
' Аргументы:
'       путь к файлу (куда надо сохранять)
'       набор записей (открытый в любом режиме. Указатель уже стоит на нужной записи)
'       имя поля для извлечения из него файла
'       если файл, бывший до этого с таким же названием нужно удалять (по умолчанию - да)
' Автор: nibbles
' ===========================================================
Public Sub ufFileFromADOFieldLoad(ByVal strPath As String, _
                                ByRef rst As ADODB.Recordset, _
                                ByVal strField As String, _
                                Optional IsOverwrite As Boolean = True)
Dim myStream    As New ADODB.Stream
Dim FSys        As New Scripting.FileSystemObject

    ' Удалить файл, если он был до этого...
    If IsOverwrite Then
        If FSys.FileExists(strPath) Then
            FSys.DeleteFile strPath, False
        End If
    End If

    Set myStream = New ADODB.Stream
    myStream.Type = adTypeBinary
    myStream.Open
    myStream.Write rst(strField).Value
    myStream.SaveToFile strPath
    myStream.Close
    Set myStream = Nothing
    
End Sub

Dim myStream    As ADODB.Stream