[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم
تفضل التعديل

كود :

Dim last As Integer = dt.Rows.Count
       Dim Row As DataRow = dt.NewRow
       dt.Rows.Add()
       dt.Rows(last).Item("TxtCat") = TxtCat.Text
       dt.Rows(last).Item("TxtCatName") = TxtCatName.Text
       dt.Rows(last).Item("Txtprofit") = Txtprofit.Text
       dt.Rows(last).Item("TxtCatNote") = TxtCatNote.Text
     
       Dim cmdb As New OleDbCommandBuilder()
       cmdb = New OleDbCommandBuilder(adapter)
       adapter.Update(dt)
       dt.AcceptChanges()