Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.FileIO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                       Handles Button1.Click

        ''データテーブル
        Dim dt As New DataTable
        Dim row As DataRow

        ''フィールド(列)を追加
        dt.Columns.Add("filename", Type.GetType("System.String"))
        dt.Columns.Add("env", Type.GetType("System.Int16"))
        dt.Columns.Add("class", Type.GetType("System.Int16"))
        dt.Columns.Add("size", Type.GetType("System.Int16"))
        dt.Columns.Add("title", Type.GetType("System.String"))
        dt.Columns.Add("update", Type.GetType("System.DateTime"))

        ''カンマ区切りテキストを読み込み、データテーブルに追加
        Dim parser As TextFieldParser
        parser = My.Computer.FileSystem.OpenTextFieldParser( _
                                        "C:\TEST\files.csv", ",")
        While Not parser.EndOfData
            row = dt.NewRow
            row.ItemArray = parser.ReadFields
            dt.Rows.Add(row)
        End While
        Call parser.Close()

        ''データグリッドビューにセット
        DataGridView1.DataSource = dt

    End Sub

End Class