Access - Grabar registro de Imagen en Access 97

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strSql As String

Dim strPath As String

' Establecer la ruta de la imagen

strPath = "C:\Images\myimage.jpg"

' Crear una cadena de conexión a la base de datos de Access

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

    "Data Source=C:\mydatabase.mdb;"

' Abrir la base de datos y el registro en el que se guardará la imagen

Set db = OpenDatabase("C:\mydatabase.mdb")

strSql = "SELECT * FROM mytable WHERE ID=1"

Set rs = db.OpenRecordset(strSql, dbOpenDynaset)

' Leer el archivo de imagen y guardarlo en el registro

With rs

    .Edit

    .Fields("ImageField").LoadFromFile strPath

    .Update

End With

' Cerrar el registro y la base de datos

rs.Close

db.Close