Ayuda a insertar imagen a una base

[Ytong]

Yo hago esto, pero desde un fichero con la imágen

Dim rstRecordset As ADODB.Recordset
Dim Chunk() As Byte
Dim nChunks As Long
Dim Fragmento As Long
Dim Psc As Integer

Sql = "INSERT INTO Tabla ( Campos necesarios, excepto el binary de la imágen ) VALUES ( sus valores )
conexion.execute sql

Set rstRecordset = New ADODB.Recordset
rstRecordset.Open "SELECT CampoImagen FROM Tabla WHERE Condicionante", Conn, adOpenKeyset, adLockOptimistic

Canal = FreeFile
Open Fichero For Binary Access Read As Canal
nChunks = LOF(Canal) \ 16384
Fragmento = LOF(Canal) Mod 16384
ReDim Chunk(Fragmento)
Get Canal, , Chunk()
rstRecordset("nombrecampo").AppendChunk Null
rstRecordset("nombrecampo").AppendChunk Chunk()
ReDim Chunk(16384)
For Psc = 1 To nChunks
Get Canal, , Chunk()
rstRecordset("nombrecampo").AppendChunk Chunk()
Next
Close Canal
rstRecordset.Update
rstRecordset.Close
Set rstRecordset = Nothing

Espero que te sirva de ayuda