Tables ROW

mports System
Imports System.Data
Imports System.Data.SqlClient

Module XMLPersistSample

Sub Main()
Dim myDS As DataSet = New DataSet()
myDS.ReadXml("..\..\Customers_ADO.XML")

Console.WriteLine("Customers Table, Persisted from ADO 2.7")
Dim Row As DataRow
Dim c As Integer = 0
For Each Row In myDS.Tables("row").Rows
c = c + 1
Console.WriteLine(c & "- {0} from {1}", Row("ContactName"), _
Row("CompanyName"))
Next
Console.ReadLine()
myDS.Dispose()
End Sub

End Module