Creating a DataTable Through Code

        Dim tblMy As New DataTable()
        Dim rw1, rw2, rw3 As DataRow
        Dim c1 As New DataColumn("ID")
        Dim c2 As New DataColumn("Team")

        tblMy.Columns.Add(c1)
        tblMy.Columns.Add(c2)

        rw1 = tblMy.NewRow()
        rw1.Item("ID") = 1
        rw1.Item("Team") = "Team 1"
        tblMy.Rows.Add(rw1)

        rw2 = tblMy.NewRow()
        rw2.Item("ID") = 2
        rw2.Item("Team") = "Team 2"
        tblMy.Rows.Add(rw2)

        rw3 = tblMy.NewRow()
        rw3.Item("ID") = 3
        rw3.Item("Team") = "Team 3"
        tblMy.Rows.Add(rw3)