اولا كود التخزين 
Dim ms As New MemoryStream
        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
        Dim arrImage() As Byte = ms.GetBuffer
        ms.Close()
Dim strSQL As String = "INSERT INTO tbl_ (Photo)VALUES (@Photo)"
            cls.cmd = New SqlCommand(strSQL, cls.con) اقصد انا cls هو اسم كلاس معرف فيه الربط 
            With cls.cmd
.Parameters.Add(New SqlParameter("@Photo", SqlDbType.Image)).Value = arrImage

end with
cls.con.Open()
            cls.cmd.ExecuteNonQuery()
            cls.con.Close()
----------------------------------------------------
ثانيا كود العرض
 Dim arrPicture() As Byte = CType(cls.DataSet.Tables(0).Rows(Me.ComboBox2.SelectedIndex)("Photo"), Byte())
            Dim ms As New MemoryStream(arrPicture)
            With PictureBox1
                .Image = Image.FromStream(ms)
            End With
-----------------------------------------------------