ogni volta che devi aggiungere una colonna devi settare il SubItem.
scrivi così:
codice:
rs.MoveFirst
'popolo la mia list item come segue
Dim aItem As ListItem, sItem As ListSubItem
Do Until rs.EOF
Set aItem = lstInfo.ListItems.Add(, , rs!Con_nome.Value)
Set sItem = aItem.ListSubItems.Add , , rs!Con_nome.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_nome.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_cognome.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_indirizzo.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_nap.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_provincia.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_telefono.Value & vbNullString
Set sItem = aItem.ListSubItems.Add , , rs!Con_mail.Value & vbNullString
rs.MoveNext
Loop