Tienes que leer el archivo en modo binario, y cargarlo en un array de tipo byte.

Una vez leido el fichero guardas el array en el campo.

En VB6 para leer en forma binaria usa esta función...

Public Function f_Leer_Binario(Imagen As String) As Variant

   
    Dim i As Integer
    Dim X As Long
    Dim tb() As Byte
    i = FreeFile
   
    Dim ll_lon As Long
    Open Imagen For Binary As i
    ll_lon = LOF(i)
    ReDim Preserve tb(ll_lon + 1)
        Get #i, , tb()
    Close #i

    f_Leer_Binario = tb

End Function

Y para grabar en la base de datos ...

Dim binario() As Byte
binario = f_Leer_Binario("c:\RUTADETUIMAGEN.jpg")
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open "Select id,imagen from TuTabla where id =3",conexion, adOpenStatic, adLockOptimistic
rst.Fields("imagen") = binario()
rst.Update
rst.Close

Saludos, DJK

De todas formas si puedes evitarlo es mucho mejor guardar los binarios en el disco duro y guardar en la base de datos sólo la ruta del fichero, los binarios son un autentico castigo para el rendimiento de una base de datos

Pablo Gumpert

www.aldeamedia.com