Kleuren om en om in listview

[Romario]

Ik wil de background kleuren van de listviewitems om en om hebben.

Kan iemand mij daar mee helpen?

De code die ik nu gebruik is:

Private Sub Form_Load()

Dim rs As DAO.Recordset
Dim i, j As Integer
Dim Lstitem As ListItem

Set rs = CurrentDb.OpenRecordset("Employees")
Me!ListView.View = lvwReport

For i = 1 To rs.Fields.Count
Me.ListView.ColumnHeaders.Add , , rs.Fields(i - 1).Name,
Me.ListView.Width / rs.Fields.Count
Next i

rs.MoveFirst
While Not rs.EOF
Set Lstitem = ListView.ListItems.Add()

Lstitem.Text = rs.Fields(0)

For j = 1 To rs.Fields.Count - 1
Lstitem.SubItems(j) = Nz(rs.Fields(j))
Next j
rs.MoveNext
Wend

End Sub