るきお様

早速のご指導ありがとうございます。
お手数をおかけして申し訳ありません。

                Dim dd As New ArrayList
                dd.Add("月日")
                dd.Add("-")
                For i As Integer = 1 To 5
                    dd.Add(i.ToString)
                Next
このddをｄｔにセットしようとしていました。
ご指導のとおり次のようにしてセットすることができました。
                Dim row As DataRow = dt.NewRow
                Dim j As Integer = 0
                For Each col In dt.Columns
                    row(col) = dd.Item(j)
                    j += 1
                Next
                dt.Rows.Add(row)
ありがとうございました。
今後ともよろしくお願いいたします。