→→→データセットのテーブルにフィールドを作成

DataTableオブジェクト.Columns.Add(フィールド名, フィールド型)

DataSetオブジェクトのテーブルにフィールドを追加するにはDataTableオブジェクトに含まれるDataColumnCollectionオブジェクトのAddメソッドを使う

Dim dSet As DataSet = New DataSet("t_テスト")
Dim dTbl As DataTable
dTbl = dSet.Tables.Add("XXX")


dTbl.Columns.Add("メニューNO", Type.GetType("Sysytem.Int32"))
dTbl.Columns.Add("メニュー", Type.GetType("Sysytem.String"))