Private _conn As New OleDbConnection()
    Private _da As OleDbDataAdapter
    Private _ds As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        _conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";" & _
                                "User ID=Admin;Data Source=D:\Test\NWIND.MDB"
        _da = New OleDbDataAdapter("Select * From Orders ", _conn)
 
        Try
            _da.Fill(_ds, "Orders")
        Catch ex As System.Exception
            Debug.WriteLine(ex.Message)
        End Try
 
        DataGrid1.DataSource = _ds.Tables("Orders")
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(_da)
 
    End Sub
 
    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnUpdate.Click
        Try
            _da.Update(_ds, "Orders")
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
    End Sub