Dim sb As New System.Text.StringBuilder
        For Each tbl As DataTable In ds.Tables
            sb.AppendLine("TableName: " & tbl.TableName & ", ColumnCount: " & _
              tbl.Columns.Count & ", RowCount: " & tbl.Rows.Count)
            For rowIndex As Integer = 0 To tbl.Rows.Count - 1
                For colIndex As Integer = 0 To tbl.Columns.Count - 1
                    sb.Append(tbl.Rows(rowIndex)(colIndex).ToString & "; ")
                Next
                sb.AppendLine()
            Next
        Next