Imports System.Data.OleDb
Public Class Form1
    Private da As OleDbDataAdapter = Nothing
    Private dt As DataTable = Nothing
    Private bs As New BindingSource()
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=C:\Users\Simon\Desktop\REZ Abend.mdb;"
        Dim conn As New OleDbConnection(connStr)
        Dim selStr As String = "SELECT * FROM CueList"
        da = New OleDbDataAdapter(selStr, conn)
        da.MissingSchemaAction = MissingSchemaAction.AddWithKey
        Dim cb As New OleDbCommandBuilder(da)
        dt = New DataTable("CueList")
        conn.Open()
        da.Fill(dt)
        conn.Close()
        bs.DataSource = dt
        DataGridView1.DataSource = bs
        MyBase.OnLoad(e)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            bs.EndEdit()
            da.Update(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class