insert into tt (attach) values ("C:\Temp\рисунок.jpg")

insert into tt (attach.FileData) values ("C:\Temp\рисунок.jpg")

Sub Attach(FileName)
    Dim objStream As ADODB.Stream, rst As ADODB.Recordset
    Dim conn As ADODB.Connection

    Set objStream = CreateObject("ADODB.Stream")
    Set rst = New ADODB.Recordset
    
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile FileName
    
    Set conn = CurrentProject.Connection
    rst.Open "select * from tblAttach ", conn, adOpenDynamic, adLockOptimistic
    rst.AddNew
    rst!NameAttach = FileName
    rst!Attach = objStream.Read 'Ошибка здесь
    rst.Update
    
    objStream.Close
    Set objStream = Nothing
End Sub