Guardar imagen en Sql y luego descargarla en un Gridview

[Thencho]

Buenas

Ya he conseguido guardar la imagen en la BD, en un Bynary data.

Dim ruta As New FileStream("C:\Documents and Settings\itovar\My Documents\My Pictures\imagen1.jpg", FileMode.OpenOrCreate, FileAccess.Read)
Dim binario(ruta.Length) As Byte
ruta.Read(binario, 0, ruta.Length)
ruta.Close()
Dim conexion As New SqlConnection("server=ggnet;database=ggitc;uid=gg; password=ostia")
Dim consulta As New SqlDataAdapter("Select codemp,codigo,denominacion,imagen from t_articulos where codemp='9' and codigo='01-001'", conexion)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(consulta)
Dim ds As New DataSet()
consulta.MissingSchemaAction = MissingSchemaAction.AddWithKey
Try
conexion.Open()
consulta.Fill(ds, "Imagenes")
Dim fila As DataRow
fila = ds.Tables("Imagenes").Rows(0)
fila.Item("Imagen") = binario
consulta.Update(ds, "Imagenes")
Catch ex As Exception
MsgBox(ex.Message)
Finally
conexion.Close()
End Try

Tambien se cojer el binary data de la BD. Y me aparece la imagen.

Dim conexion As New SqlConnection("server=ggnet;database=ggitc;uid=gg; password=ostia")
Dim consulta As New SqlDataAdapter("Select imagen from t_articulos where codemp='9' and codigo='01-001'", conexion)
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(consulta)
Dim ds As New DataSet()
Try
conexion.Open()
consulta.Fill(ds, "Imagenes")
Dim fila As DataRow
fila = ds.Tables("Imagenes").Rows(0)
Dim binario() As Byte
binario = fila.Item(0)
'Image1.ImageUrl = binario.ToString
'Dim k As Long
'k = UBound(binario)
Response.Buffer = True
Response.ContentType = "Image/JPEG"
Response.BinaryWrite(binario)
Catch ex As Exception
MsgBox(ex.Message)
Finally
conexion.Close()
End Try

Ya obtengo un bato binario, BINARI DATA, del sql, y quiero que aparezca en el control image1, que es un control imagen. Ya que con lo anterior me aparece la imagen en la toda la pantalla.

Gracias. Espero Vuestras Respuestas.