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)
Console.WriteLine(table.Columns.Count)
End Sub
End Module
' run:
'
' 3