Yo tengo este codigo para guardar Imagenes en un campo Blob de MySql
Private Conexion As ADODB.Connection
Private Resultado As ADODB.Recordset
Private La_Imagen As ADODB.Stream
' En el Load
Set Conexion = New ADODB.Connection
Set Resultado = New ADODB.Recordset
Set La_Imagen = New ADODB.Stream
Conexion.CursorLocation = adUseClient
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host;" _
& "DATABASE=ejemplo;" _
& "UID=Usuario;" _
& "PWD=Clave;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Conexion.Open
' ============================
La_Imagen.Type = adTypeBinary
' Abrir el Objeto de Imagen
' Si no se hace este SELECT siguiente no funciona (debe tener "adOpenStatic, adLockOptimistic" al final o no funciona)
Resultado.Open "SELECT * FROM crystal WHERE 1=0", Conexion, adOpenStatic, adLockOptimistic
La_Imagen.Open
' Indicar cual es la Imagen (osea el Archivo)
La_Imagen.LoadFromFile "archivo.jpg"
' Agregar nuevo Registro
Resultado.AddNew
' Enviar los datos (con un INSERT no me funciona, no se porque)
Resultado!id = CInt(Mayor) + 1
Resultado!ruta = Common1.FileName
Resultado!imagen = La_Imagen.Read
' Actualizar
Resultado.Update
' Cerrar el Objeto de Imagen
La_Imagen.Close
