Insertion fichier Excel dans ListView SubItems et Items

Bonjour a tous,

J'essai d'insérer le contenue d'un fichier excel sur un ListView, mais un petit blém est apparue.

Le contenue des trois colonnes du fichier excel est inséré dans la première colonne de la ListView !

Voici le code ;

  Dim MyConnection As System.Data.OleDb.OleDbConnection

        MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath + "\Liste.xls;Extended Properties=Excel 8.0;")

        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter _

            ("select * from [Feuille1$]", MyConnection)

        Dim DS As System.Data.DataSet = New System.Data.DataSet

        MyCommand.Fill(DS)

        Dim TableExcel As DataTable

        TableExcel = DS.Tables(0)

        With ListView1

            .View = View.Details                                           

            .CheckBoxes = False                                             

            .GridLines = True                                              

            .Columns.Add(TableExcel.Columns(0).ToString, 40, HorizontalAlignment.Left)

            .Columns.Add(TableExcel.Columns(1).ToString, 90, HorizontalAlignment.Left)

            .Columns.Add(TableExcel.Columns(2).ToString, 110, HorizontalAlignment.Left)    

              End With

        Dim lvi As ListViewItem

        For i AsInteger = 1 To TableExcel.Rows.Count - 1

            ListView1.Items.Add(TableExcel.Rows(i).Item(0).ToString & " - " & TableExcel.Rows(i).Item(1).ToString & " - " & TableExcel.Rows(i).Item(2).ToString)

        Next

        MyConnection.Close()

Comment utiliser les SubItems que je puis les insérer a la fin dans Items ?

Merci d'avance