Public Sub sub_Datenbank_speichern()
    For Each tab as DataTable in ds.Tables
        Using Adapter As New OleDb.OleDbDataAdapter( "Select * from" & _
          ""+tab.TableName,ConnectionString)
            Dim CommandBuilder As New OleDb.OleDbCommandBuilder(Adapter)
            Try
                Dim lngRowsUpdated As Long = da.Update(tab)
                Debug.Print("Gespeichert: " & tab.TableName & "AnzDatensätze:"& _
                  lngRowsUpdated)
            Catch ex As Exception
                'OleDbErrorCollection(ex)
            End Try
        Next
    End Sub