ListView控件问题

Question

我想把数据库中的用户名添加到ListView控件中，不知道为啥总说我下边表红的那句说“类型不匹配”，请大家帮忙看看。
Option Explicit
Dim itmX As ListItem     '定义一个ListItem对象
Dim key  As String       '定义字符串变量connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source=" & App.Path & "\用户管理.mdb"
conn1.Open connectionstringcnt = 0Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\用户管理.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 用户名 from 用户管理"
Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then
     ListView1.Enabled = True
     ListView1.ListItems.Clear
     Adodc1.Recordset.MoveFirst
     Do While Adodc1.Recordset.EOF = False                   '将操作员信息添加到ListView控件当中
        key = Adodc1.Recordset.Fields("用户名")
        Set itmX = ListView1.ListItems.Add(, , key, 1)
        Adodc1.Recordset.MoveNext
     Loop
Else
ListView1.Enabled = False
End If

Answer 1

Dim itmX As ListItem   这里的ListItem上面点右键,看是属于哪个集合的.
可能和你窗口上用到的listview并不是同出一辙.

Answer 2

在你的工程-->部件里面对照一下
部件里面添加了listview控件,就不要再去工程-->引用里面去引用了

Answer 3

调试的时候我把鼠标放到上边显示
itmX = nothing

Answer 4

key可能不能用数字。
前面随便加个字符，用的时候去掉。

Answer 5

在你的工程-->部件里面对照一下 
部件里面添加了listview控件,就不要再去工程-->引用里面去引用了这个我找了，好像没有重复使用的。

Answer 6

Set itmX = ListView1.ListItems.Add(, , key, 1) 
可能情况是多了个逗号，去掉就行。

Answer 7

Set itmX = ListView1.ListItems.Add(, , key)