مشكلة في حفظ البيانات

يا جماعة الخير

كل ما اسوي حفظ للبيانات على الفورم يكتبلي تممام وتم الحفظ وتتعدل في الداتا جريد لكن في قاعدة البيانات ما في اي تحديث

وهذا الكود

Dim cmdB As New OleDbCommandBuilder(Da)

If bAdd = True Then

Dim addRow As DataRow

addRow = Ds.Tables("tb_nsi").NewRow

addRow.Item("ns_pieses") = Trim(txp.Text)

addRow.Item("ns_count") = Trim(txco.Text)

addRow.Item("ns_sale") = Trim(txsal.Text)

addRow.Item("ns_bay") = Trim(txbay.Text)

addRow.Item("ns_prof") = Trim(txprof.Text)

addRow.Item("ns_date") = Trim(txdate.Text)

addRow.Item("ns_rem") = Trim(txrem.Text)

Ds.Tables("tb_nsi").Rows.Add(addRow)

Da.Update(Ds, "tb_nsi")

MsgBox("تمت عملية حفظ السجل الجديد المضاف")

Else

With Ds.Tables("tb_nsi").Rows(RowP)

.Item("ns_pieses") = Trim(txp.Text)

.Item("ns_count") = Trim(txco.Text)

.Item("ns_sale") = Trim(txsal.Text)

.Item("ns_bay") = Trim(txbay.Text)

.Item("ns_prof") = Trim(txprof.Text)

.Item("ns_date") = Trim(txdate.Text)

.Item("ns_rem") = Trim(txrem.Text)

End With

Da.Update(Ds, "tb_nsi")

MsgBox("تمت عملية حفظ تعديلات السجل الحالي " & RowP)

End If

'Enable(True)

ViewRecord(RowP)

ملاحظة نفس المشكلة في الحذف والتعديل