Imports System.Data.OleDb
 
Public Class Form1
    Private ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
      "Source=e:\Ablage.mdb;"
    Private objConnection As New OleDbConnection(ConStr)
    Private Archive As New BindingSource()
    Private objDataAdapter As OleDbDataAdapter
    Private objDataTable As DataTable
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim xDataTable As DataTable = objDataTable.GetChanges()
        If Not xDataTable Is Nothing Then
            Dim Antwort As MsgBoxResult
            Antwort = MsgBox("Achtung es wurden Daten geändert, möchten Sie die" & _
              "Änderungen speichern?", MsgBoxStyle.Question Or _
              MsgBoxStyle.YesNoCancel)
            If Antwort = MsgBoxResult.Yes Then
                objDataAdapter.Update(CType(Me.Archive.DataSource, DataTable))
            ElseIf Antwort = MsgBoxResult.Cancel Then
                e.Cancel = True
            End If
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        objDataAdapter = New OleDbDataAdapter("SELECT * FROM Archidaten", _
        ConStr)
        objDataTable = New DataTable()
 
        Dim cmd As OleDbCommandBuilder = New OleDbCommandBuilder(objDataAdapter)
 
        cmd.QuotePrefix = "["
        cmd.QuoteSuffix = "]"
 
        objDataAdapter.Fill(objDataTable)
 
        Me.Archive.DataSource = objDataTable
 
        Me.DataGridView1.DataSource = Me.Archive
    End Sub
End Class