[abdala]

كود التعديل
Private Sub btn_Editr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Editr.Click
'& TextBox13.Text & "' WHERE user_name ='" & TextBox12.Text & "'"

Try
cmd.Connection = conn
cmd.CommandText = "UPDATE data SET part = '" & ComboBox1.Text & "' , des = '" & TextBox2.Text & "' , link= '" & TextBox1.Text & "' , name = '" & TextBox6.Text & "' , user_name = '" & RTrim(TextBox13.Text) & "' WHERE password ='" & RTrim(TextBox12.Text) & "'"
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

MessageBox.Show("تم التعديل بنجاح")
filllistbox_Edatr()
filltext_Edatr()
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub btn_caler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_caler.Click
Dim str As String = ModuleINI.sGetINI(ModuleINI.sINIFile, "Favorites Link .v4.1", "lng", "en")

If str = "en" Then
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
btn_add.Text = "Seve"
ListBox3.Visible = False
Else

TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
btn_add.Text = "حفظ"
ListBox3.Visible = False
End If
نفس المشكلى لا يقبل التعديل مع العلم قاعدة البيانات 2003

ارجوا المساعدة