[الجندى]

جزاك الله خيراً
لكن لا يوجد مفتاح أساسى فى الجدول
كما أنى استخدمت كائن الأوامر
وهذ هو الكود الذى استخدمته كاملاً

كود :

Imports System.Data.OleDb
Public Class Form1
    Dim dts As New DataSet
    Dim da As New OleDbDataAdapter("select natio as [الدولة] from tnatio", con)
    Dim cm As New OleDbCommandBuilder(da)
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      
        da.Fill(dts, "tnatio")
      
        DataGridView1.Rows.Clear()

        If dts.Tables(0).Rows.Count = 0 Then Exit Sub
      
        DataGridView1.DataSource = Nothing
        DataGridView1.DataSource = dts
        DataGridView1.DataMember = "tnatio"
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      
        da.Update(dts, "tnatio")
    End Sub
End Class