[Adata]

لا ياأخي هذة كل دالة 
(Shared Sub Insert(ByVal Num As String, ByVal Name As String, ByVal price As String, ByVal Types As String, ByVal pic As PictureBox)
        Dim cmd As New SqlCommand("INSERT INTO Categories (Num,Name,price,Types,pic) VALUES(@Num,@Name,@price,@Types,@pic
       ( cmd.Parameters.AddWithValue("@Num", Num
        (cmd.Parameters.AddWithValue("@Name", Name
        (cmd.Parameters.AddWithValue("@price", pric
       ( cmd.Parameters.AddWithValue("@Types", Types
        {}=Dim imageData() As Byte 
        Dim ms As New IO.MemoryStream
 (BackgroundImage.Save(ms, pic.BackgroundImage.RawFormat
        imageData = ms.GetBuffer
       ( cmd.Parameters.AddWithValue("@pic", imageData
        (ExecuteCommand(cmd
    End Sub

---

واعتذر لم اقصد والله

---

وبارك الله فيك نجحت الطريقة واعتذر للمرة التانية