Dim dSet As DataSet
Dim dRow As DataRow
Dim itemX As ListViewItem
Dim bColor As Boolean
For Each dRow In dSet.Tables("myTable").Rows
itemX = ListView1.Items.Add(dRow("myField1"))
itemX.SubItems.Add(dRow("myField2"))
itemX.SubItems.Add(dRow("myField3"))
'and so on...
If bColor Then
itemX.BackColor = Color.White
Else
itemX.BackColor = Color.AliceBlue
End If
bColor = Not bColor
Next