hier wäre das umständliche : - was mir die werte einzeln ausgibt
Dim table As DataTable
            Dim row As DataRow
            Dim column As DataColumn
            For Each table In objDataSet.Tables
                For Each row In table.Rows
                    For Each column In table.Columns
                        MessageBox.Show(row(column))
                    Next column
                Next row
            Next table