Code:
' https://stackoverflow.com/questions/302258/import-a-files-like-pdf-mp3-doc-xls-into-a-ms-sql-server-datatable-field
Private Sub Command0_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from dbo_TblFiles where [dbo_TblFiles].[ID]=7", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
'mstream.LoadFromFile "C:\Users\Data\Test_Login_Form\TestLoginForm.rar"
mstream.LoadFromFile Application.CurrentProject.Path & "\09062021121954result.pdf"
rs.Fields("blobfld").Value = mstream.Read
rs.Update
' Try to retrieve OLE Object
' https://sourcedaddy.com/ms-access/working-with-attachment-fields.html
End Sub