Rieccomi!
Ho trovato la soluzione
Però mi servirebbe un aiuto ulteriore

Devo fare in modo di colorare le righe

Praticamente in una colonna ho un codice.
Se questo codice è diverso da 0 la riga deve essere rossa!
Qualcuno riuscirebbe ad aiutarmi?

Posto il codice:

codice:
 Dim rs As New ADODB.Recordset
    Dim szSql As String
    Dim l As ListItem
    Dim i As Long
    
    Lista.ListItems.Clear
    
    On Error GoTo err_hand
    
    szSql = "Select id, data, ora, codAnomalie, Anomalie From Lavorazione"
    rs.Open szSql, connMain, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then Exit Sub
    
    On Error Resume Next
    
    While Not rs.EOF
    
        Set l = Lista.ListItems.Add
        i = i + 1
        l.Tag = rs!idVernice
        l.Text = i
        Dim myData As String
        Dim myA As String
        Dim myMe As String
        Dim myG As String
        myG = Right(rs!data, 2)
        myMe = Mid(rs!data, 4, 2)
        myA = Left(rs!data, 4)
        myData = myG + "/" + myMe + "/" + myA
        l.SubItems(1) = myData
        
        Dim myOra As String
        Dim myH As String
        Dim myMi As String
        Dim myS As String
        myH = Left(rs!data, 2)
        myMi = Mid(rs!data, 2, 2)
        myS = Right(rs!data, 2)
        myOra = myH + ":" + myMi + ":" + myS
        l.SubItems(2) = myOra
        l.SubItems(3) = rs!codAnomalie
        l.SubItems(4) = rs!Anomalie
        
        If rs!codAnomalie.Value <> 0 Then
                l.SubItems(3).ForeColor = vbRed
        End If
        rs.MoveNext
    Wend


err_hand: