Recherche dans une datagrid

Bonjour, à tt le monde
bon, j'ai un petit probléme et j'éspere que vous allez m'aider à le résoudre
j'ai un tp sur vb.net concernant la pogrammation evenementielle;dans le formulaire il y a une datagrid qui affiche les informations du fichier.txt ,en fait le probleme c que lorsque l'utulisateur tape une lettre du nom dans un textbox sous l'evenement text changed en meme temps les informations qui doivent afficher sur cette datagrid doit commencer par cette lettre ecrite , j'ai ecrit un code mais au moment d'execution un message d'erreur apparait "imposible de trouver la colonne 0" l'exception indexoutofrange n'a pas été gérée

voici le code

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
        Dim i As Integer = 1 
        If File.Exists("Stagiaire.txt") Then 
            FileOpen(2, "Stagiaire.txt", OpenMode.Random) 

            dt.Clear() 
            While Not EOF(2) 
                FileGet(2, S, i) 
                If TextBox1.Text.Length <= S.Nom.ToString.Length Then 
                    If S.Nom.ToString.Substring(0, TextBox1.Text.Length) = TextBox1.Text Then 
                        Dim dr As DataRow 
                        dr = dt.NewRow 
                        dr(0) = S.Num 
                        dr(1) = S.Nom 
                        dr(2) = S.Prenom 
                        dr(3) = S.Filiere 
                        dr(4) = S.Sexe 
                        dr(5) = S.Note1 
                        dr(6) = S.Note2 
                        dr(7) = S.Note3 
                        dr(8) = S.Moy 
                        dt.Rows.Add(dr) 

                    End If 
                    i = i + 1 
                Else 
                    i = i + 1 
                End If 
            End While 
            FileClose(2) 
            DVGStagiaire.DataSource = dt 
        End If 
    End Sub 

bon je souhaite que vous me disiez en quoi j'ai fait erreur
et merci d'avance