' Crear una instancia de la aplicación Access
Dim appAccess As Access.Application
Set appAccess = New Access.Application
' Abrir la base de datos
appAccess.OpenCurrentDatabase "C:\Ruta\de\la\base\de\datos.accdb"
' Crear un objeto Recordset para la tabla que quieres actualizar
Dim rs As Recordset
Set rs = appAccess.CurrentDb.OpenRecordset("Tabla")
' Agregar un nuevo registro
rs.AddNew
' Crear un objeto Field para el campo de imagen
Dim fld As Field
Set fld = rs.Fields("CampoDeImagen")
' Cargar la imagen desde un archivo
Dim img As Variant
img = LoadPicture("C:\Ruta\de\la\imagen.jpg")
' Asignar la imagen al campo de imagen
fld.LoadFromFile "C:\Ruta\de\la\imagen.jpg"
' Guardar el registro
rs.Update
' Cerrar el Recordset y la base de datos
rs.Close
appAccess.CloseCurrentDatabase
' Liberar los objetos
Set fld = Nothing
Set rs = Nothing
Set appAccess = Nothing
Crear cuenta