Visual Basic - ayuda con ListView

Como le puedo hacer para llenar un List View con datos de una base de datos

Gracias

Hay va un pequeño ejemplo :

Rs.Open "SELECT Campo1, Campo2 FROM Tabla", CnCoreti, adOpenForwardOnly, adLockReadOnly

Do Until Rs.EOF = True
i = i + 1
ListViewAlbaranesClientes.ListItems.Add i, Rs!Campo1,Rs!Campo1
ListViewAlbaranesClientes.ListItems(Rs!Campo1).SubItems(1) = Campo2
Rs.MoveNext

Loop