Oi!
Este é um exemplo utilizando tabela de um BD, espero que possa ajudar.
Dim itmy As ListItem
Do While Not tabela.EOF
Set itmX = ListView1.ListItems.Add
With itmX
.Text = tabela!campo1
.SubItems(1) = tabela!campo2
.SubItems(2) = "" & tabela!campo3
End With
'seleciona o ultimo item do listview
ListView1.ListItems(ListView1.ListItems.Count).Selected = True
'posiciona o cursor no ultimo item
ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible
tabela.MoveNext
Loop
