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)
Dim row As DataRow = table.Rows(1)
For Each item As String In row.ItemArray
Console.Write("{0} ", item)
Next
Console.WriteLine()
End Sub
End Module
' run:
'
' 543 Arrow 31871