Public Sub INSERTFILE()
Dim objStream
 Set objStream = CreateObject("ADODB.Stream")
  

  objStream.Type = adTypeBinary
  objStream.Open
  
 Dim FName As String
 Dim result As Integer
 With Application.FileDialog( 1 )
    .Title = "Select picture"
    .InitialFileName = "C:\" 'default path Путь по умолчанию
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Файл для прикрепления", "*.xls; *.doc",  1 
 result = .Show
 If result =  0  Then Exit Sub
 FName = Trim(Application.FileDialog( 1 ).SelectedItems.Item( 1 ))
 End With
 objStream.LoadFromFile FName
Me.ffilename = Left(Replace(Mid(FName, InStrRev(FName, "\", , vbTextCompare)), "\", ""),  50 )
  Me.ffilebinary = objStream.Read

objStream.Close
Set objStream = Nothing

Me.Dirty = False
Call buttons
End Sub

Public Sub OPENFILE()
        Dim Filedata() As Byte, filename
filename = "c:\tmp\" & Me.ffilename


        ReDim Filedata(Len(Me.ffilebinary) -  1 )
        Filedata() = Me.ffilebinary

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

Call ShellExecute(Me.hwnd, "Open", filename,  0 &,  0 &,  3 )

End Sub

Option Compare Database
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long