[سعود]

وجدت انك استخدمت imports داخل كلاس الفورم و هذا خطا.
الـimports يكون اعلى الكلاس.

---

كود :

       Dim str As New MemoryStream
       pic.Image.Save(str, Imaging.ImageFormat.Jpeg)
       Dim con As New OleDbConnection(conString)
       Dim cmd As New OleDbCommand("INSERT INTO Pictures (ThePicture) VALUES (@ThePicture)", con)
       cmd.Parameters.AddWithValue("@ThePicture", str.ToArray)
       con.Open()
       cmd.ExecuteNonQuery()

كود حفظ الصورة

---

مثال بسيط اسهل من الذي عملته اتمنى يلبي المطلوب.