พอผมไปเจอโค้ด อ่านค่า text file ที่เป็น C# แล้วเอามาแปลง เป็น VB แล้วเกิด errors ใครทราบรบกวนขอคำแนะนำด้วยคับ

For i = 0 To parts.Length - 1

 Dim filename2 As String = Path.GetFullPath(FileUploadControl.PostedFile.FileName)
        Dim streamReader As IO.StreamReader = New IO.StreamReader(filename2)
        Dim dt As DataTable = New DataTable
        Dim line As String
        Dim i As Integer 


        Using sr As StreamReader = New StreamReader(filename2)
            line = sr.ReadLine()

            While (line IsNot Nothing)

                Dim parts() As String = line.Split("|")
                dt.Rows.Add()
                For i = 0 To parts.Length - 1   'ใส่เพิ่มไปแล้วนะคับแต่ยังไม่มีอะไรเกิดขึ้นเลยคับ
                    dt.Columns.Add()
                    dt.Rows(0)(i) = parts(i)
                    GrvScanData.DataSource = dt
                    GrvScanData.DataBind()
                Next
            End While
            sr.Close()
        End Using

USER ID|PART NO|QTY|SUPP CD|SERIAL|LABLE DATE|SCAN DATE
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:04:43
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:04:50
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:06:40
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:06:56
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:07:00
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:07:31
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:07:37
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:07:42
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:07:48
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:08:15
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:08:33
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:09:36
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:09:42
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:09:51
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:09:56
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:10:02
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:10:32
006|DB39 13405 DA|4|V0HWA|C726 |04112014|03-11-2014 07:10:39
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:11:11
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:11:43
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:12:12
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:12:18
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:12:24
006|DB39 13404 EA|4|V0HWA|C727 |04112014|03-11-2014 07:12:28

While (line IsNot Nothing)

                Dim parts() As String = line.Split("|")
                dt.Rows.Add()
                For i = 0 To parts.Length - 1
                    MessageBox.Show(parts(i))'เพิ่มมาเพื่อเช็ค
                    dt.Columns.Add()
                    dt.Rows(0)(i) = parts(i)      ' Errors บรรทัดนี้คับ
                    GrvScanData.DataSource = dt
                    ' GrvScanData.DataBind()
                Next
            End While

line = sr.ReadLine()
While (line IsNot Nothing)
  .......
  .......
  .......

         line = sr.ReadLine()
End While

Sub Run()
        Dim path As String = "c:\1311.txt"
        Dim readText() As String = file.ReadAllLines(path)
        Dim dt As DataTable = New DataTable

        For Each line As String In readText
            Dim parts() As String = line.Split("|")
            For i As Integer = 0 To parts.Length - 1
                MessageBox.Show(parts(i))'จะเอาไปทำไรก็ได้ครับ
            Next
        Next
    End Sub