Dim cb As OleDbCommandBuilder
        Dim cm As CurrencyManager
 
        cm = Me.BindingContext(tblFund)
 
        Try
            cb = New OleDbCommandBuilder(daFund)
            daFund.Update(tblFund)
        Catch ex As Exception
            MsgBox("Fehler beim Speichern")
        End Try
 
        cm = Me.BindingContext(tblKeramik)
        Try
            cb = New OleDbCommandBuilder(daKeramik)
            daKeramik.Update(tblKeramik)
        Catch ex As Exception
            MsgBox("Fehler beim Speichern1")
        End Try