Private da As OleDb.OleDbDataAdapter
    Private ds As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim sCon As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
        "Source=F:\Work Dev\VSNet Dev\Test\nwind.mdb")
        Dim cn As New OleDb.OleDbConnection(sCon)
        Dim sSql As String = "SELECT * FROM Customers"
        da = New OleDb.OleDbDataAdapter(sSql, cn)
        da.Fill(ds, "Customers")
        DataGrid1.DataSource = ds
        DataGrid1.DataMember = "Customers"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "Customers")
    End Sub