[VB.NET] القراءة من ملف txt واضافته في Listview

كود :
Public Class Form1

    Dim db As String

    Dim dt As New DataTable

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click



        OpenFileDialog2.FileName = Nothing

        OpenFileDialog2.Title = "Open a Text File"

        OpenFileDialog2.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"

        If OpenFileDialog2.ShowDialog = System.Windows.Forms.DialogResult.OK Then

            TextBox2.Text = Me.OpenFileDialog2.FileName

            db = IO.Path.GetDirectoryName(TextBox2.Text) & "\texte.txt"

            gd()

        Else



        End If



    End Sub



   

    Public Function loadtxt() As DataTable

        dt.Clear()

        If dt.Columns.Count = 0 Then

            dt.Columns.Add("tname")

            dt.Columns.Add("tphone")

            dt.Columns.Add("Date")

            dt.Columns.Add("Time")



        End If

        Dim lines() As String = IO.File.ReadAllLines(db)

        For Each line As String In lines

            If line.Contains("+CMGL:") = True Then

                Dim row() As String = {Split(line, ",")(1), Split(line, ",")(2), Split(line, ",")(4), Split(line, ",")(5)}

                dt.Rows.Add(row)

            Else

                Dim row() As String = {line}

                dt.Rows.Add(row)

            End If

        Next

        Return dt

    End Function

    Private Sub gd(Optional pos As Integer = 0)

        If loadtxt.Rows.Count > 0 Then

            DataGridView1.DataSource = loadtxt()

            If DataGridView1.Rows.Count > 0 Then

                DataGridView1.Rows(pos).Selected = True

                DataGridView1.Columns(0).Width = 120

            End If

        End If

    End Sub

End Class