Un esempio di codice corretto e' questo

codice:
Dim Item As ListItem

Do While Not rec.EOF 
   Set Item = lsthd.ListItems.Add(, , rec!presidio)
   With Item
      .SubItems(1) = rec!ID_hd
      .SubItems(2) = rec!descrizione
      .SubItems(3) = rec!processore
      .SubItems(4) = rec!memoria 
      .SubItems(5) = rec!hard_disk 
      .SubItems(6) = rec!disco 
      .SubItems(7) = rec!note 
      .SubItems(8) = rec!utente 
      .SubItems(9) = rec!pwd 
   End With
   rec.MoveNext 
Loop