Dim Scmd As New SqlCommand
sqlstr = "INSERT INTO materiel (photo) VALUES (@photo)"
Scmd.CommandText = sqlstr
Scmd.Connection = conn
Dim ss As New System.IO.MemoryStream
Me.photo.Image.Save(ss, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim B(ss.Length) As Byte
B = ss.GetBuffer 'ss.GetBuffer
Dim photo1 As New SqlParameter("@photo", B)