[rnmr]

جرب هذا

كود :

If Me.PictureBox1.Image Is Nothing Then
   UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", DBNull.Value)
Else
   Dim ms As New MemoryStream
   PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
   Dim img() As Byte = ms.ToArray()
   UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", img)
End If