codice:
conn.Open() 
Dim comm As New OleDbCommand("Select * From Clienti", conn) 
Dim read As OleDbDataReader = comm.ExecuteReader 
Dim pippo as ListItem
While read.Read() 
set Pippo=ListView1.Items.Add(read("Nome"))
pippo.subitems(1)="Colonna #2"
...
End While 
conn.Close()
Ho provato la ListView allo SMAU con .NET (una delle poche cose sinimli a VB6) e così dovrebbe funzionare.