Problemi a inserire un campo numerico in colonna listview

Sto popolando una listView con dati provenienti da recordset access.
Il campi id che devo caricare deve essere caricato come numeri per poter essere sortaato in maniera corretta.
Utilizzo questo codice, ma il campo in viene comunque trattato come stringa e in ordinamento non vengono sortati correttamente.
dove sto sbagliando ?

  With rs1
       Do While Not .EOF
       Nrec = Nrec + 1
          Set itm = Me.ListView1.ListItems.Add(, , CInt(.Fields("id").Value)) <-- qui dovrei rendere numerico il campo "id"
       
           Stato = .Fields("stato").Value
           Select Case Stato
               Case 3
                   colore = vbMagenta
                   icona = "I3"
               Case 4
                   colore = vbGreen
                   icona = "I1"
               Case 5
                   colore = vbRed
                   icona = "I2"
               Case Else
                   colore = vbBlack
                   icona = "I4"
           End Select
       
           itm.SubItems(1) = .Fields("utente").Value
           itm.SubItems(2) = .Fields("intervento").Value
           '=============== stratagemma per ordinare per DATA =============
           itm.SubItems(3) = Format(.Fields("dataInizio").Value, "yyymmdd")
           '===============================================================
           itm.SubItems(4) = .Fields("dataInizio").Value
           itm.SubItems(5) = .Fields("stato").Value
           itm.SubItems(6) = .Fields("DescStato").Value
           itm.ListSubItems(6).ForeColor = colore
    '       itm.ListSubItems(6).ReportIcon = icona
            rs1.MoveNext
       Loop
       Me.lblNPratiche = Nrec
       Set rs1 = Nothing
   End With

Grazie

Moreno