listview的问题

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "各种产品库存", cn, adOpenDynamic
lvwStock.ListItems.Clear
Do While Not rs.EOF
With lvwStock.ListItems.Add
.Text = rs!产品ID
.SubItems(1) = rs!名称
.SubItems(2) = rs!包装类型
.SubItems(3) = IIf(IsNull(rs!进货总量), 0, rs!进货总量)
.SubItems(4) = IIf(IsNull(rs!销售总量), 0, rs!销售总量)
.SubItems(5) = .SubItems(3) - .SubItems(4)
If .SubItems(5) = 0 Then
.ForeColor = vbRed
End If
End With
rs.MoveNext
Loop
Set rs = Nothing
为什么红颜色的那行不是整行而是第一列是红的？