الاخوة الكرام الطرق جميعها لم تنجح للاسف
اكتشفت ان المشكلة من هذا الكود بعد ازالته ولكن لا ادري ما مشكلة فيه
Try
Dim SQLStr As String = "SELECT * from skin"
Dim DataAdapter1 As New OleDbDataAdapter(SQLStr, Conn)
Conn.Open()
DataSet1 = New DataSet
DataAdapter1.Fill(DataSet1, "skin")
Conn.Close()
PictureBox3.DataBindings.Clear()
PictureBox3.DataBindings.Add("image", DataSet1, "skin.papic", True)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "خطأ")
End Try