[kafi]

السلام عليكم
شكرا اخي ابو ايهاب على نصائحك

قمت بكتابة كود التعديل على النحو التالي
[HTML]
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click

Dim UpdateData As New DB.Data_BedaDataContext

Dim x = From beda In UpdateData.Bedas Where beda.Beda_id = txt_beda_id.Text Select beda


x.beda_Name = txt_beda_Name.Text
x.shra_Price = txt_Shra_Price.Text
x.mabee_Price = txt_Mabee_Price.Text
x.Beda_Note = txt_Note.Text


Try
UpdateData.SubmitChanges()

MsgBox("Data Updated")
Catch
' Handle exception.
End Try

End Sub[/HTML]

الا ان هناك خطأ فيه

ارجو المساعدة في تصويب كود التعديل، والاشارة الى مكمن الخطأ، حتى اتعلم منه
والف الف شكر