Para guardar imagenes tengo este codigo.. el campo debe ser tipo Binary
El campo "ruta" contiene el Path de la imagen y el campo "foto" es el que contiene la imagen.. luego lo mando a un Reporte de Crystal Reports
Dim abtyImage() As Byte, hFile As Long, lngSize As Long
With Data1.Recordset
.MoveFirst
While Not .EOF
' Leer el nombre del Archivo que esta en el campo "ruta"
strFile = .Fields("ruta")
' Liberamos por si esta abierto el Archivo
hFile = FreeFile
' Lo Abrimos en modo Binario
Open App.Path & "\" & strFile For Binary Access Read As hFile
' Vemos cuanto mide
lngSize = LOF(hFile)
' Si mide mas de 0...
If lngSize > 0 Then
' Agrandar el arreglo de 1 a cuanto mide el Archivo
ReDim abtyImage(1 To lngSize) As Byte
' Leer el Archivo y meterlo en el Arreglo
Get hFile, , abtyImage()
End If
' Cerrar el Archivo
Close hFile
' Indicar que voy a Editar
.Edit
' Enviarle el Arreglo al campo "foto"
.Fields("foto") = abtyImage()
' Actualizar
.Update
' Mover al siguiente Registro
.MoveNext
Wend
End With
Crystal1.PrintReport
