Display data from a text file in datagrid

Tech Talk vb.Net
1 

Dim iReader As StreamReader
        Dim col As New DataColumn("SomeText", Type.GetType("System.String"))
        Dim dRow As DataRow
        Dim dSet As New DataSet

        Dim dTable As New DataTable("NewOne")
        iReader = File.OpenText("c:\acctsynclog.txt")
        dTable.Columns.Add(col)

        While iReader.Peek <> -1
            dRow = dTable.NewRow
            dRow(0) = iReader.ReadLine
            dTable.Rows.Add(dRow)
        End While
        iReader.Close()

        dSet.Tables.Add(dTable)