No ... esiste il SubItems ...

Il codice dovrebbe essere (questo e' VB6 ...)

Dim lvi As ListViewItem
Set lvi = ListView1.Items.Add("nome1")
lvi.SubItems.Add("cognome1")
lvi.SubItems.Add("data1")