جلب البيانات من ملف txt

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام 
رجاءا لو سمحتم
عندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيو
قمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة 
الملف هو :
medic.rar
الكود  الذي كتبته هو :

        Dim fichierALire As String = Application.StartupPath & "\" & "Forme.txt"

        Dim champs() As String

        Dim sr As New StreamReader(fichierALire)

        While Not sr.EndOfStream
            Dim ligne As String = sr.ReadLine()
            champs = ligne.Split(CChar(vbTab))
            dgv.Rows.Add(champs)

        End While

ألف شكر لكم مسبقا