Ayuda a insertar imagen a una base

[hunabku]

Saludos como estan tengo una base en sql server y la conecto en visual basic con el objeto adodc y un picture y un dialog pero encesito saber como hacer para guardar la imagen en la base ya que me la pone al cargar los datos de la base pero al consultarlos no me ha guardado nada

[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