Access - Insertar fichero

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strFilePath As String

strFilePath = "C:\ruta\al\archivo.pdf" 'Ruta del archivo que quieres insertar

Set db = CurrentDb()

Set rs = db.OpenRecordset("NombreTabla", dbOpenDynaset)

rs.AddNew

rs("NombreCampoBinario").LoadFromFile strFilePath 'Campo de tipo binario en el que se almacenará el archivo

rs.Update

rs.Close

Set rs = Nothing

Set db = Nothing