[2008] FileIO.TextFieldParser question -

Dim myReader As FileIO.TextFieldParser

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtFileName.Text = OpenFileDialog1.FileName
            strFilename = OpenFileDialog1.FileName

            If My.Computer.FileSystem.FileExists(strFilename) Then


                myReader = My.Computer.FileSystem.OpenTextFieldParser(strFilename)

                myReader.SetDelimiters(",")

                'txtAxdx.Text = Replace(myReader.ReadToEnd, Chr(34), "")
                While Not myReader.EndOfData
                    Dim textField As String() = myReader.ReadFields

                    If myReader.LineNumber = 2 Then

                        For Each currentfield As String In textField
                            dgvAir.Columns.Add(currentfield, currentfield)
                        Next
                        dgvAir.Rows.Clear()
                    End If

                    If myReader.LineNumber > 2 Or myReader.LineNumber = -1 Then
                        dgvAir.Rows.Add()
                        Dim intcol As Integer = 0
                        For Each currentfield As String In textField
                            If intcol <= dgvAir.ColumnCount - 1 Then
                                dgvAir.Rows(dgvAir.RowCount - 1).Cells(intcol).Value = currentfield
                            Else
                                Exit For
                            End If
                            intcol += 1
                        Next
                    End If


                End While



            End If


        End If