Я знаю, что этот пост старый, но я верю, что это можно решить с помощью меньшего количества строк кода.
' Declare DataTable
Dim Table1 As DataTable
' Define columns
Table1.Columns.Add("Column1", GetType(System.String))
Table1.Columns.Add("Column2", GetType(System.Int32))
Table1.Columns.Add("Column3", GetType(System.Int32))
' Add a row of data
Table1.Rows.Add("Item1", 44, 99)
Table1.Rows.Add("Item2", 42, 3)
Источник DotNetPerls.com: VB.NET DataTable