[khalidalwdi]

كيف ارفق المشروع مافي ايقونه تحميل ولا ارفاق

---

Dim da As New OleDbDataAdapter("select * from t1 where Nam ='" & TextBox1.Text & "'", con)
        Dim dt As New DataTable
        dt.Clear()
        da.Fill(dt)
        Dim pos As Integer = BindingContext(dt).Position
        dt.Rows(pos).Item("num") = TextBox2.Text
        Dim save As New OleDbCommandBuilder
        save = New OleDbCommandBuilder(da)
        da.Update(dt)
        dt.AcceptChanges()
    End Sub