Mi sa che famo prima cosi:
************************************************** ********************

'Richiamo la View_Elenco_Stabili x riempire la listview degli stabili
StrView_Elenco_Stabili = "select id_stabile,id_soc,id_complesso,indirizzo,n_civico, città from View_Elenco_Stabili where id_soc = " & CLng(Val(TxtId_societa.Text))

'Funzione di controllo sul recordset
Call CheckRcs(StrView_Elenco_Stabili, rcs)

With LswElencoStabili
.View = lvwReport

'carico la listview con l'rcs della vista

Do Until rcs.EOF
Set itmStabili = .ListItems.Add(, , Replace(rcs("indirizzo").Value, "''", "'"))
itmStabili.SubItems(1) = Replace(rcs("n_civico").Value, "''", "'")
itmStabili.SubItems(2) = Replace(controlloCella(rcs("città")), "''", "'")


'Se lo stabile non è in un complesso
'non valorizzo la colonna complesso
'della listview altrimenti richiamo la
'View_Elenco_Complessi con l'id_dello
'stabile corrente.

If IsNull(rcs("id_complesso")) Then

itmStabili.SubItems(3) = ""

Else

StrView_Elenco_Complessi = "select id_complesso,nome from View_Elenco_Complessi where id_complesso = " & CLng(rcs("id_complesso"))
Call CheckRcs(StrView_Elenco_Complessi, rec)

itmStabili.SubItems(3) = controlloCella(rec("nome").Value)
rec.Close
End If
itmStabili.SubItems(4) = rcs("id_stabile").Value
rcs.MoveNext
Loop

************************************************** ********************
Sarebbe utile poter associare al report i campi della listview invece del recordset