'
    'Datenbank-Verbindung
    '
    Dim con As OleDbConnection = New OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\test.mdb")
    Dim cmd As New OleDbCommand
    Dim cda As New OleDbDataAdapter
    Dim tab As New DataTable
    Dim bs As BindingSource

Function OleDb_A(ByVal TabPage_String, ByVal DataGr)
        cda.TableMappings.Clear()
        cmd.Connection = con
        Try
            con.Open()
            cmd.CommandText = "select Uhrzeit,Pkw,Lkw,Lastzug,Bus,Radfahrer" & _
              "from " & TabPage_String & " Order by ID"
            cda.SelectCommand = cmd
            cda.TableMappings.AddRange(New System.Data.Common.DataTableMapping( _
              ) {New System.Data.Common.DataTableMapping("Table", _
              TabPage_String, New System.Data.Common.DataColumnMapping() {New _
              System.Data.Common.DataColumnMapping("Uhrzeit", "Uhrzeit"), New _
              System.Data.Common.DataColumnMapping("Pkw", "Pkw"), New _
              System.Data.Common.DataColumnMapping("Lkw", "Lkw"), New _
              System.Data.Common.DataColumnMapping("Lastzug", "Lastzug"), New _
              System.Data.Common.DataColumnMapping("Bus", "Bus"), New _
              System.Data.Common.DataColumnMapping("Radfahrer", "Radfahrer"), _
              New System.Data.Common.DataColumnMapping("PKW-E", "PKW-E")})})
            cda.Fill(tab)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        'DataGr.DataSource = tab
        DataGr.DataMember = tab.ToString
        bs = New BindingSource(tab, "")
        DataGr.DataSource = bs
    End Function

Private Sub Aktualisieren_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Aktualisieren.Click, Aktualisieren.Click
        Dim UCommand As OleDbCommand
        UCommand = New OleDbCommand("UPDATE " & TabControl1.SelectedTab.Name & _
          " SET Uhrzeit = ? , PKW = ? , LKW = ? , Lastzug = ? , Bus = ? ," & _
          "Radfahrer = ?", con)
        cda.UpdateCommand = UCommand
        bs.EndEdit()
        Try
            cda.Update(tab)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub