Public Sub ExportBLOB(ByVal Id As Long, Optional ByVal Path As String)
 Dim rs As DAO.Recordset
 Dim Buffer() As Byte
 Dim nFile As Integer
 Set rs = CurrentDb.OpenRecordset("T_BLOBs", DAO.dbOpenDynaset)
 rs.FindFirst "Id=" & Id
 If Not rs.NoMatch Then
    Path = Trim$(Path)
    If Len(Path) = 0 Then
       Path = Left$(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
    ElseIf InStr("\:", Right$(Path, 1)) = 0 Then
       Path = Path & "\"
    End If
    Path = Path & rs("FileName")
    nFile = FreeFile()
    Open Path For Output Access Write Lock Write As #nFile 'обнуление размера
    Close #nFile                                           'файла
    Open Path For Binary Access Write Lock Write As #nFile
    Buffer = rs("BinData")
    Put #nFile, , Buffer
    Close #nFile
    Erase Buffer
 End If
 Set rs = Nothing
End Sub