Dim ms As IO.MemoryStream = New IO.MemoryStream
Me.PictureBox1.Image.Save(ms, ImageFormat.Jpeg)
Dim bytBLOBData(CInt(ms.Length) - 1) As Byte
ms.Position = 0
ms.Read(bytBLOBData, 0, ms.Length)

Dim SQL As New SqlClient.SqlCommand("INSERT INTO dvds(pix) VALUES(" & _
  "bytBLOBData)", sql_con)
        SQL.ExecuteNonQuery()