Imports System

Imports System.Data

Imports System.Xml

​

Public Module Module1

​

    Public Sub Main()

        Dim dataTable As New DataTable

        dataTable.Columns.Add(New DataColumn("Foo"))

        dataTable.Columns.Add(New DataColumn("Bar"))

        PrintColumns(dataTable)

        dataTable.Columns("Foo").ColumnName = "Foo2"

        dataTable.Columns("Bar").ColumnName = "Bar2"

        PrintColumns(dataTable)

    End Sub

​

    Private Sub PrintColumns(dataTable As DataTable)

        For Each column In dataTable.Columns

            Console.WriteLine(column.ToString())

        Next

    End Sub

End Module

​