为什么 Item =nothing ?


'用LISTview装载数据
Public Sub LoadUserList()
    Dim Item As ListItem, lngUserStyle As Long
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    List1.ListItems.Clear
    rs.Open "Select * From [User] order by UserID Desc", cnMain, 1, 1
    Do Until rs.EOF
        lngUserStyle = rs("UserStyle")
        Set Item = List1.ListItems.Add(, , rs("UserID"), , lngUserStyle)
        Item.SubItems(1) = rs("UserName")
        Item.SubItems(2) = lngUserStyle & "－" & GetUserStyleString(lngUserStyle)
        rs.MoveNext
    Loop
    SetSB 2, "共 " & rs.RecordCount & " 条用户员记录."
End Sub'调试本句[运行本过程本句抱错,说类型部队]
Set Item = List1.ListItems.Add(, , rs("UserID"), , lngUserStyle)
发现:List1.ListItems.Add(, , rs("UserID"), , lngUserStyle)
显示:List1.ListItems.Add(, , 4, , 2)
但Set Item = List1.ListItems.Add(, , rs("UserID"), , lngUserStyle)
显示:Set Item =nothing
为什么啊，谢谢各位指点谢谢!