Nom de TextBox Dynamique | VB.net

Bonjour tout le monde,

Je suis toujours en train de coder mon application pour un stage, mais je galère à nouveau sur un truc qui me parait simple dans l'idée mais je ne trouve absolument aucune aide qui me corresponde sur le net.

En fait j'ai des TextBox du style :
TB_N_Prenom1 TB_NB_N_1 TB_P_N_1
TB_N_Prenom2 TB_NB_N_2 TB_P_N_2
TB_N_Prenom3 TB_NB_N_3 TB_P_N_3
TB_N_Prenom4 TB_NB_N_4 TB_P_N_4
TB_N_Prenom5 TB_NB_N_5 TB_P_N_5
TB_N_Prenom6 TB_NB_N_6 TB_P_N_6

TB_O_Prenom1 TB_NB_O_1 TB_P_O_1
TB_O_Prenom2 TB_NB_O_2 TB_P_O_2
TB_O_Prenom3 TB_NB_O_3 TB_P_O_3
TB_O_Prenom4 TB_NB_O_4 TB_P_O_4
TB_O_Prenom5 TB_NB_O_5 TB_P_O_5
TB_O_Prenom6 TB_NB_O_6 TB_P_O_6

TB_F_Prenom1 TB_NB_F_1 TB_P_F_1
TB_F_Prenom2 TB_NB_F_2 TB_P_F_2
TB_F_Prenom3 TB_NB_F_3 TB_P_F_3
TB_F_Prenom4 TB_NB_F_4 TB_P_F_4
TB_F_Prenom5 TB_NB_F_5 TB_P_F_5
TB_F_Prenom6 TB_NB_F_6 TB_P_F_6

Voilà en gros mes textbox.

On repère bien que j'ai repris la même forme, avec juste le chiffre qui change, et une lettre en fonction de ce que je veux.

En fait j'aimerais pouvoir utiliser par exemple dans une boucle for : TB_N_Prenom & i.

J'ai tout essayé, ou presque vu que je vous sollicite pour m'aider.

Voilà un aperçu de ce que j'ai tenté :

 For i = 0 To 1 
            myreaderreservation.Read() 
            NBparcatégorie.Connection() = sqlCnx 
            NBparcatégorie.CommandText() = "SELECT COUNT(codeeleve),prenome, prix FROM reservation,eleves,avoir,prixcantine WHERE reservation.codeelever=eleves.codeeleve AND eleves.codeeleve=avoir.codeelevea AND reservation.codeprixr = prixcantine.codeprix AND typerepas = 'RR' AND codeparenta=" & CInt(moncode(0)) & "GROUP BY prenome,prix" 
            myreadercatégorie = NBparcatégorie.ExecuteReader() 

            For j = 0 To NBenffamille.ExecuteScalar - 1 
                myreadercatégorie.Read() 
                Controls("TB_N_Prenom_" & i).Text = myreadercatégorie(1) 
                Controls("TB_NB_N_" & i).Text = myreadercatégorie(0) 
                Controls("TB_P_N_" & i).Text = myreadercatégorie(2) 
            Next 

            myreadercatégorie.Close() 

            NBparcatégorie.CommandText() = "SELECT COUNT(codeeleve),prenome, prix FROM reservation,eleves,avoir,prixcantine WHERE reservation.codeelever=eleves.codeeleve AND eleves.codeeleve=avoir.codeelevea AND reservation.codeprixr = prixcantine.codeprix AND typerepas = 'OC' AND codeparenta=" & CInt(moncode(0)) & " GROUP BY prenome,prix" 
            myreadercatégorie = NBparcatégorie.ExecuteReader() 

            For j = 0 To NBenffamille.ExecuteScalar - 1 
                myreadercatégorie.Read() 
                Controls("TB_O_Prenom_" & i).Text = myreadercatégorie(1) 
                Controls("TB_NB_O_" & i).Text = myreadercatégorie(0) 
                Controls("TB_P_O_" & i).Text = myreadercatégorie(2) 

            Next 

            myreadercatégorie.Close() 

            NBparcatégorie.CommandText() = "SELECT COUNT(codeeleve),prenome, prix FROM reservation,eleves,avoir,prixcantine WHERE reservation.codeelever=eleves.codeeleve AND eleves.codeeleve=avoir.codeelevea AND reservation.codeprixr = prixcantine.codeprix AND typerepas = 'PF' AND codeparenta=" & CInt(moncode(0)) & " GROUP BY prenome,prix" 
            myreadercatégorie = NBparcatégorie.ExecuteReader() 

            For j = 0 To NBenffamille.ExecuteScalar - 1 
                myreadercatégorie.Read() 
                Controls("TB_F_Prenom_" & i).Text = myreadercatégorie(1) 
                Controls("TB_NB_F_" & i).Text = myreadercatégorie(0) 
                Controls("TB_P_F_" & i).Text = myreadercatégorie(2) 

            Next 

            myreadercatégorie.Close() 

        Next 

J'espère avoir été assez explicite pour me faire comprendre :)

Merci d'avance,

Xineroks