关于ListView的一个问题!---出这样的错怎样解决！

我是第一次用listview控件的，在运行到Set cListTreeX = List.ListItems.Add(, , "aa"，，1）时报“类型不匹配”如何改？


List.SmallIcons = ImageList1
List.Icons = ImageList2

Dim cListTreeX As ListItem

List.ColumnHeaders.Add , , "客户经理", List.Width / 4
List.ColumnHeaders.Add , , "服务对象", List.Width / 4
List.ColumnHeaders.Add , , "出门时间", List.Width / 4
List.View = lvwReport


'For i = 0 To mrc.RecordCount - 1

Set cListTreeX = List.ListItems.Add(, , "aa"，，1）
' mItem.Text = mrc!xm
' mItem.Icon = 1
' cListTreeX.SmallIcon = 1
' mItem.Key = rsTitles!ISBN
' 用函数得到作者并设置
' SubItems(1) 属性。
'mItem.SubItems(1) = mrc!服务对象
' If Not IsNull(rsTitles![Year Published]) Then
' mItem.SubItems(2) = _
'rsTitles![Year Published]
'End If
'mItem.SubItems(3) = rsTitles!ISBN
'rsTitles.MoveNext
' mrc.MoveNext
'Next i