Combobox multi colonne HELP :(

J'aimerais faire un petit programme qui va servir de raccourci, grosso modo j'ai l'id/nbdejeux , le nom(nom) et le chemin de l'application(Path).
le chemin et le nom sont sur des textbox. et quand je clic sur mon bouton. il va prendre les données pour les stoker sur mon disque dur pour ensuite les reprendre et créer ma ComboBox. L'idée étant que quand je réouvre le programme. il ai mémorisé les ajouts à la ComboBox.

Le problème est que quand je lance le programme, il m'affiche les MessageBox "ok" que j'ai écrites pour vérifié où était le problème, il me les affiche toutes. vous me direz, mais ou est le problème alors ? Le problème c'est que ma CamboBox n'affiche rien... :/



Je suis vraiment désolé si j'ai mal présenté mon problème.. Je ne sais pas trop comment le présenter. Bref voici le code en VB.NET

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click

        'génère les variables
        Dim path As String = TextBox1.Text
        Dim name As String = TextBox2.Text
        Dim nbJeu As String = 0
        Dim id As String = 1
        Dim x As String = 0
        Dim pathlien As String = "C:\theboy2223xxlol\path"
        Dim namelien As String = "C:\theboy2223xxlol\nom"
        Dim nbjeulien As String = "C:\theboy2223xxlol\nbjeu"
        MessageBox.Show("Ok 1")


        'Ajoute la donnée
        Dim swName As System.IO.StreamWriter
        swName = IO.File.AppendText(namelien)
        swName.WriteLine(name)
        swName.Close()
        Dim swPath As IO.StreamWriter
        swPath = IO.File.AppendText(pathlien)
        swPath.WriteLine(path)
        swPath.Close()
        MessageBox.Show("Ok 2")

        'Ajoute +1 au jeux
        '(si le fichier n'existe pas)
        If IO.File.Exists(nbjeulien) = False Then
            Dim swfc As New StreamWriter(nbjeulien)
            swfc.WriteLine(nbJeu)
            swfc.Close()
        End If
        '(suite)
        Dim srnbjeufsr As New StreamReader(nbjeulien)
        x = srnbjeufsr.ReadLine()
        srnbjeufsr.Close()
        x = x + 1
        Dim srnbjeufadd As New StreamWriter(nbjeulien)
        srnbjeufadd.WriteLine(x)
        srnbjeufadd.Close()

        MessageBox.Show("OK 3")





        'lécture pour actualisation
        x = 0
        id = 1
        path = ""
        name = ""
        Dim srnbjeu As New StreamReader(nbjeulien)
        Dim srPath As New StreamReader(pathlien)
        Dim srName As New StreamReader(namelien)
        nbJeu = srnbjeu.ReadLine()
        MessageBox.Show("oK 4")
        Do While id > nbJeu
            id = id + 1
            path = srPath.ReadLine()
            name = srName.ReadLine()

            ComboBox1Path.Items.Add(path)
            ComboBox1.Items.Add(id & "I " & name)
        Loop
        srName.Close()
        srPath.Close()
        srnbjeu.ReadLine()

        MessageBox.Show("OK 5")

    End Sub