Visual Basic - Grabar imagen en campo OLE

Necesito grabar el contenido de un archivo de imagen en un campo de tipo OLE, de una base de datos de Access 2000

aqui va una manera de hacerlo:

'este ejemplo es para guardar la imagen en el campo
ESTAS VARIABLES ES UTILIZADAS PARA GUARDAR IMAGEN
Dim X() As Byte
Dim n As Long
Dim ff As Integer

ff = FreeFile
Open "c:\IMAGEN.jpg" For Binary Access Read As ff
n = LOF(ff)
If n Then
ReDim X(1 To n) As Byte
Get ff, , X()
Close ff
End If
tabla("campo_ole") = X()

'este ejemplo es para recuperar la imagen del campo
Dim X() As Byte
Dim ff As Integer
ff = FreeFile

Open "c:\IMAGEN" For Binary Access Write As ff
X() = tabla("campo_ole").GetChunk(0, tabla("campo_ole").FieldSize)
Put ff, , X()
Close ff
picturebox = LoadPicture( "c:\IMAGEN")
'elimina el archivo temporal
Kill "c:\IMAGEN"

suerte :-)