Public Sub AktualisiereTabelle(ByVal Tabellename As String, ByRef ds As _
      DataSet, Optional ByVal Bedingungen As String = "")
        Try
 
            Dim da As New OleDb.OleDbDataAdapter
            Dim builder As New OleDb.OleDbCommandBuilder(da)
            Dim command As New OleDb.OleDbCommand("SELECT * FROM " & _
              Tabellename & " WHERE Kennummer = ? " & Bedingungen, con)
            da.SelectCommand = command
            da.Update(ds, Tabellename)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellEventArgs) Handles _
      DataGridView1.CellEndEdit
        DataGridView1.EndEdit()
        AktualisiereTabelle(lstTabellen.Text, DataGridView1.DataSource.dataset)
    End Sub