Imagenes en bases de datos??

[GeoAvila]

mira aqui hay un ejemplo prar mysql que bien lo podes implementar para SQLserver

Código:

Private Sub Guardar_Deposito_Imagen()
On Local Error Resume Next
Dim Lectura As String
Dim Fecha As String
Dim Rs As New ADODB.Recordset

'Guardamos la imagen para cargarla al stream

mystream.Type = adTypeBinary
' Abrir conexion
Rs.Open "SELECT   `images`.`no_deposito`,  `images`.`imagen` FROM   `images` LIMIT 1,10", Cxn2, adOpenKeyset, adLockOptimistic

'Agregar Imagen a la DB con no. de Deposito
Rs.AddNew
mystream.Open
mystream.LoadFromFile App.Path & "\cxc.jpg"
Rs("no_deposito") = Val(TXTNoDeposito.Text)
Rs("imagen") = mystream.Read
Rs.Update

mystream.Close ' Cerrar Stream
Rs.Close
If Err = 3219 Then
MsgBox "Usted ha intruducido un registro dos veces en la misma facura", vbExclamation, "Error"
Exit Sub
End If
If Err <> 0 Then
Err = 0
MsgBox "Ha habido un error al guardar los datos, el programa seguira intentando guardarlos ", vbInformation, "Error"
Guardar_Deposito_Imagen
End If
End Sub

nos vmeos..