Ciao ragazzi
volevo chiedervi un aiuto, io utilizzo la ListView per caricare i dati da una tabella access in questo modo

Private WithEvents conn As ADODB.Connection
Private WithEvents rs As ADODB.Recordset
Private Sub Command1_Click()
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "C:\...\DB\DB.mdb"
.Mode = adModeRead
.Open
End With
Set rs = New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT ID, ID_FATTURA, DATA_EMISSIONE, DATA_SCADENZA FROM ID_ARTICOLI ORDER BY TXT_DESCRIZIONE;"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly
Call Riempi_Lista(rs)
End Sub

Sub Riempi_Lista(ByRef rs As ADODB.Recordset)
'secondo metodo per aggiungere la matrice di valori
On Error Resume Next
Dim objItem As ListItem
Dim NumeroChar As Double
LsVw1.ColumnHeaders.Clear
LsVw1.ListItems.Clear
LsVw1.View = lvwReport
LsVw1.ColumnHeaders.Add , , "ID", (LsVw1.Width / 2000) 'larghezza della colonna
LsVw1.ColumnHeaders.Add , , "ID_FATTURA", (LsVw1.Width / 4)
LsVw1.ColumnHeaders.Add , , "DATA_EMISSIONE", (LsVw1.Width / 1.9)
LsVw1.ColumnHeaders.Add , , "DATA_SCADENZA", (LsVw1.Width / 1.9)
Do Until rs.EOF
Set objItem = LsVw1.ListItems.Add()
objItem.text = rs!ID 'prima colonna

objItem.SubItems(1) = rs!ID_FATTURA
objItem.SubItems(2) = Mid$(rs!ID_FATTURA, 1, 28) & "..."
objItem.SubItems(3) = rs!DATA_EMISSIONE
objItem.SubItems(4) = rs!DATA_SCADENZA
rs.MoveNext
Loop

End Sub

Quello che a me servirebbe è che quando riempio la lista delle fatture mi si visualizzi in rosso le fatture già scadute.
Spero che si possa fare.
Grazie vr-claudio