Sub ExecuteFile(file As String)
 Dim rst As New ADODB.Recordset
 Dim Mstream As New ADODB.stream
 Dim ret As Long
 'Dim cn As New ADODB.Connection
 Dim cmd As New ADODB.Command
 Dim param As New ADODB.Parameter
 
 
On Error GoTo readFileErr 

 
 cmd.CommandType = adCmdStoredProc
 cmd.CommandText = "Files_EventOpenFile" 'процедура кот все сделает ;)))
 Set cmd.ActiveConnection = CurrentProject.Connection 'or other active conn
 
 Mstream.Mode = adModeUnknown
 Mstream.Type = adTypeBinary
 Mstream.Open
 Mstream.LoadFromFile file
 

 Set param = cmd.CreateParameter("Data", adBinary, adParamInput, GetFileSize(file) +  1 , Mstream.Read)
 cmd.Parameters.Append param
 
 cmd.Execute ' , , adExecuteStream
 Mstream.Close
 Set Mstream = Nothing
           
is_dir:
readFileErr:
  MsgBox err.Description, vbCritical, "OpenFile"
  
 
End If
 
End Sub

ALTER     Procedure Files_EventOpenFile (@Data image) 
 AS
Begin
   INSERT INTO dbo.FilesVLogOpen (OldData) VALUES     (@Data)

End

Public Declare Function APIFindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String *  14 
End Type


Public Function GetFileSize(FPath As String) As Long
  Dim hFile As Long
  Dim FindData As WIN32_FIND_DATA
  GetFileSize = - 1 
  hFile = APIFindFirstFile(FPath, FindData)
   If hFile <> - 1  Then GetFileSize = FindData.nFileSizeLow
  APIFindClose hFile
  
End Function

Public Declare Function APIFindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal 
lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Public Type FILETIME
 dwLowDateTime As Long
 dhHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String *  14 
End Type

Private Const MAX_PATH =  260 

Public Function GetFileSize(FPath As String) As Long
  Dim hFile As Long
  Dim FindData As WIN32_FIND_DATA
  GetFileSize = - 1 
  hFile = APIFindFirstFile(FPath, FindData)
   If hFile <> - 1  Then GetFileSize = FindData.nFileSizeLow
  APIFindClose hFile
 
End Function

Dim mstream As New ADODB.Stream
Dim rst As New ADODB.Recordset

  mstream.Type = adTypeBinary
 rst.Open "SELECT id, Data FROM Files ORDER BY id", cn
 
While Not rst.EOF
  mstream.Open 'rst.Fields(0), adModeReadWrite, adOpenStreamFromRecord
  mstream.Write rst.Fields("Data")
  mstream.SaveToFile ("D:\" & rst.Fields("id") )
  mstream.Close
 rst.MoveNext
Wend
  rst.close
  MsgBox "ok"