File TXT e DataGridView

Dim DT as new tuoDatatable
        Dim dr as DataRow
        Dim objReader As New StreamReader("c:\test.txt")
        Dim sLine As String = ""
       

        Do
            sLine = objReader.ReadLine()
            If Not sLine Is Nothing Then
                dr = new tuoDatatable.NewRow
                dr("dato1") = sLine.Substring(0,5)
                dr("dato2) = sLine.Substring(6,10)
                ....
                ....

               DT.Rows.Add(dr)
            End If
        Loop Until sLine Is Nothing
        objReader.Close()
DataGridView.DataSource = DT
DataGridView.Refresh