Controllo LISTBox & VBA

Ho un documento Word in cui ho inserito un form con un controllo ListBox che prende i dati da un foglio Excel.

Con la seguente routine funziona perfettamente: tuttavia il PROBLEMA è che non mi inserisce il titolo delle colonne del file EXCEL.

Come posso fare in modo che nella prima riga del listbox compaiano i titoli delle colonne?

Sub CaricaDatiInListBox
On Error Resume Next
   Dim sSQLQry As String
  Dim ReturnArray
  Dim Conn As New ADODB.Connection
  Dim mrs As New ADODB.Recordset
  Dim DBPath As String, sconnect As String
  Dim iCount As Integer
     iCount = 1
     ListBox1.ColumnCount = 9
     ListBox1.ColumnWidths = "50,50,50,50,50,50,50,50"
     ListBox1.ColumnHeads = True
 DBPath = "C:\Dati.xls"
     sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
  Conn.Open sconnect
    sSQLSting = "SELECT * From [DATA$]"
      mrs.Open sSQLSting, Conn
        For Each x In mrs.Fields
           Do Until mrs.EOF
               ListBox1.AddItem
                    ListBox1.List(iCount - 1, 0) = mrs.Fields("MESI").Value
                    ListBox1.List(iCount - 1, 1) = mrs.Fields("SETTORI").Value
                    ListBox1.List(iCount - 1, 2) = mrs.Fields("QUANTITA'").Value
                    ListBox1.List(iCount - 1, 3) = mrs.Fields("NAZIONI").Value                   
                iCount = iCount + 1
              mrs.MoveNext
           Loop
        Next
End sub