手動建立DataTable

 'Step1 建立空白資料表格DataTable
                注意：請先引用 System.Data 命名空間，因為 DataTable 是被定義在該命名空間中
         
  Dim dt As New DataTable

'Step(2)建立欄位資訊
         
 dt.Columns.Add("序號")
 dt.Columns.Add("年度")

'Step3 建立資料 Row
'由於Row的建立，必須取出DataTable的欄位資訊，所以不可以使用new來建立空白的Row，必須透過DataTable的NewRow()方法來取得一筆有欄位資訊的Row
'取出新的Row後，填入適當的資料，再透過DataTable中的Rows集合裡的Add()方法將Row附加到DataTable中。

            Dim row As DataRow
            For i = 0 To 4
                row = dt.NewRow()
                row(0) = i
                row(1) = Cint(Now.ToString("yyyy"))+1  '假設現在是2014年
                dt.Rows.Add(row)
            Next

----------結果------------------------

1   2014
2   2015
3   2016
4   2017
5   2018