Dim connString As String
    Private da As OleDb.OleDbDataAdapter
    Private ds As New DataSet
    Private dv As DataView
    Private cm As CurrencyManager
 
    ' Read DB
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\nwind.mdb"
 
        Dim conn As New OleDb.OleDbConnection(connString)
        Dim sql As String = "SELECT * FROM Customers"
 
        da = New OleDb.OleDbDataAdapter(sql, conn)
        Try
            da.Fill(ds, "Customers")
        Catch ex As System.Exception
            MsgBox(ex.ToString())
            Return
        End Try
        dv = ds.Tables("Customers").DefaultView
        DataGrid1.DataSource = dv
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        cm = CType(BindingContext(dv), CurrencyManager)
    End Sub
 
    ' Update DB
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        da.Update(ds, "Customers")
    End Sub