Hola,
Prueba con este código:
Código:
Dim b() As Byte
Open sRuta For Binary As #1
ReDim b(FileLen(sRuta))
Get #1, , b
Close #1
rs.Fields("Foto").AppendChunk b
rs.Update
donde:
sRuta es la ruta y el archivo desde el cual cargas el control Image p.e. "c:\Mis imágenes\Foto1.jpg" (previamente debes declarar esta variable como String).
rs es el recordset que ya tienes abierto
Foto es el nombre del campo OLE de la tabla.