Module Module1
Sub Main()
Dim table As New DataTable
table.Columns.Add("ID", GetType(Integer))
table.Columns.Add("Name", GetType(String))
table.Columns.Add("Salary", GetType(Double))
table.Rows.Add(123, "Ajax", 23492)
table.Rows.Add(543, "Arrow", 31871)
table.Rows.Add(876, "Axel", 16878)
table.Rows.Add(342, "Everly", 46123)
For Each row As DataRow In table.Rows
For Each item As String In row.ItemArray
Console.Write("{0} ", item)
Next
Console.WriteLine()
Next
End Sub
End Module
' run:
'
' 123 Ajax 23492
' 543 Arrow 31871
' 876 Axel 16878
' 342 Everly 46123