Public Sub sub_Datenbank_speichern()
        Dim i As Integer
        Dim tab As DataTable
        Dim Adapter As New OleDb.OleDbDataAdapter
        Dim CommandBuilder As New OleDb.OleDbCommandBuilder
        For i = 0 To ds.Tables.Count - 1
            tab = ds.Tables(i)
            CommandBuilder.DataAdapter = da
            Try
                da.UpdateCommand = CommandBuilder.GetUpdateCommand()
            Catch ex As Exception
                Debug.Print(ex.Message)
            End Try
            Try
                da.InsertCommand = CommandBuilder.GetInsertCommand()
                da.DeleteCommand = CommandBuilder.GetDeleteCommand()
                da.ContinueUpdateOnError = False
                Dim lngRowsUpdated As Long = da.Update(tab)
                Debug.Print("Gespeichert: " & tab.TableName & "AnzDatensätze:" _
                  & lngRowsUpdated)
                da.Update(tab)
            Catch ex As Exception
                'OleDbErrorCollection(ex)
            End Try
 
        Next
        con.Close()
    End Sub