Function SaveFileToDB(sFiles As String) As Double
    Dim s As String
    
    On Error GoTo  1 
    s = Nz(sFiles, "")
    ImgPath = s
    For i =  1  To Len(ImgPath)
        If Mid(ImgPath, i,  1 ) = "." Then last_dot = i
    Next i
    ExtImg = Mid(ImgPath, last_dot +  1 ,  1000 )
    ExtImg = "." & ExtImg
    Me.ExtensImg.Value = ExtImg
    
    If (Dir(s) = "") Or (s = "") Then MsgBox "Файл не найден": Exit Function
    
    Set MStream = CreateObject("ADODB.Stream")
    MStream.Type = adTypeBinary
    MStream.Open
    MStream.LoadFromFile s
    Me.ScanDocField = MStream.Read
ex:
    Set MStream = Nothing
    Exit Function
 1 
    SaveFileToDB = Err.Number
    GoTo ex
End Function

Function SaveFileToDB(sFiles As String) As Double
    Dim s As String
    Dim fso As Object, file As Object

    On Error GoTo  1 
    s = Nz(sFiles, "")
    ImgPath = s
    For i =  1  To Len(ImgPath)
        If Mid(ImgPath, i,  1 ) = "." Then last_dot = i
    Next i
    ExtImg = Mid(ImgPath, last_dot +  1 ,  1000 )
    ExtImg = "." & ExtImg
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.GetFile(ImgPath)
    If file.size > CLng( 400 ) *  1024  Then
        MsgBox "Размер файла превышает 400 килобайт"
        flag = True
        Exit Function
    End If
    
    Me.ExtensImg.Value = ExtImg
    
    If (Dir(s) = "") Or (s = "") Then MsgBox "Файл не найден": Exit Function
    
    Set MStream = CreateObject("ADODB.Stream")
    MStream.Type = adTypeBinary
    MStream.Open
    MStream.LoadFromFile s
    Me.ScanDocField = MStream.Read
    Set MStream = Nothing
    Set fso = Nothing
ex:
    Set MStream = Nothing
    Exit Function
 1 
    SaveFileToDB = Err.Number
    GoTo ex
End Function

BEGIN
	SET NOCOUNT ON;

	declare @EventID as uniqueidentifier
	declare @UserAddress as varchar( 50 )
	Set @EventID=newid()

IF not UPDATE(WorkStatusDate) or not UPDATE(DateAddImage)

begin
	Update dbo.MyTable
	SET dbo.MyTable.DateUpdate = Getdate(), dbo.MyTable.UpdateEvent = @EventID
	FROM dbo.MyTable inner Join
	(SELECT Inserted.* FROM Inserted inner join Deleted On Inserted.RowID=Deleted.RowID) as Upd on
	dbo.MyTable.RowID=Upd.RowID
end 

Insert changes.MyTable (ClientID,DateUpdate,RowID,UpdateEvent,UpdateUser,UserMachine,UserApp)
SELECT Deleted.ClientID,GetDate(),Deleted.RowID, @EventID,
	SUSER_SNAME(),HOST_NAME(),APP_NAME()
FROM Inserted inner join Deleted On Inserted.RowID=Deleted.RowID

END

Update dbo.MyTable
	SET dbo.MyTable.DateUpdate = Getdate(), dbo.MyTable.UpdateEvent = @EventID
	FROM dbo.MyTable inner Join
	(SELECT Inserted.* FROM Inserted inner join Deleted On Inserted.RowID=Deleted.RowID) as Upd on
	dbo.MyTable.RowID=Upd.RowID

Me.Recordset.FindFirst strcrit
Me.Bookmark = Me.Recordset.Bookmark