为什么 Item =nothing ?该如何解决

为什么 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
为什么啊，谢谢各位指点谢谢!




[解决办法]
Set Item = List1.ListItems.Add(, , "K_ " & rs( "UserID "), , lngUserStyle)

Key 不能用数字

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070127

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html