Te pongo un poco más explícito el código, espero que así te ayude.
[Ejemplo]
Cita: Public Class Form1
Inherits System.Windows.Forms.Form
Dim cmd As OleDb.OleDbCommand
Dim conn As OleDb.OleDbConnection
Function LoadImage1(ByVal imageData As Byte()) As Image
Try
Dim imageStream As New IO.MemoryStream(imageData)
Dim imageObject As Image
imageStream.Flush()
imageObject = Image.FromStream(imageStream)
imageStream.Close()
Return imageObject
Catch ex As Exception
Return Nothing
msgbox("Error al cargar imagen.")
End Try
End Function
Function SaveImage1(ByVal imageObject As Image) As Byte()
Try
Dim imageStream As New IO.MemoryStream
Dim imageData As Byte()
imageObject.Save(imageStream, System.Drawing.Imaging.ImageFormat.Png)
imageStream.Flush()
imageData = imageStream.GetBuffer()
Return imageData
Catch ex As Exception
Return Nothing
msgbox("Error al guardar imagen.", Me.Text)
End Try
End Function
Private Sub btLeerImagen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLeerImagen.Click
Try
cmd=New oledb.OledbCommand
conn=New Oledb.OledbConnection (tuConexion)
conn.Open()
cmd.Connection = conn
cmd.CommandText = "select img1 from tabla"
if isdbnull(cmd.executeScalar)=false
Me.pct1.Image = LoadImage1(DirectCast(cmd.executeScalar, Byte()))
end if
conn.close
Catch ex As Exception
msgbox( ex.Message)
Finally
conn.close
End Try
End Sub
Private Sub btGuardarImagen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGuardarImagen.Click
Try
cmd=New oledb.OledbCommand
conn=New Oledb.OledbConnection (tuConexion)
conn.Open()
cmd.Connection = conn
cmd.commandtext="insert into tabla (img1) values (@img1)"
cmd.Parameters.Add("@img1", Me.SaveImage1(Me.pct1.Image))
cmd.ExecuteNonQuery
cmd.parameters.clear
conn.close
Catch ex As Exception
msgbox( ex.Message)
Finally
cmd.parameters.clear
conn.close
End Try
End Sub
End Class
Pruébalo y ya me dirás si ahora te funciona.
Saludos