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 col As DataColumn In table.Columns
Console.WriteLine(col.ColumnName)
Next
End Sub
End Module
' run:
'
' ID
' Name
' Salary