Using a datatable

 _
       Public Sub TestExecuteStoredProcedureReturningRows()
        
        Dim sw As New StringWriter()
        'Dim ms As New MemoryStream()
        dt.WriteXml(sw)
        Console.WriteLine(sw.ToString())
        Dim colNumber As Integer
        Dim rowNumber As Integer
        For colNumber = 0 To dt.Columns.Count - 1
            Console.WriteLine(dt.Columns(colNumber).ColumnName & "     ")
        Next
        For rowNumber = 0 To dt.Rows.Count - 1
            For colNumber = 0 To dt.Columns.Count - 1
                Console.Write(dt.Rows(rowNumber)(colNumber).ToString().Trim() & "     ")
            Next
        Next



       
    End Sub