Problema con el listview

tengo el siguiente codigo

Me.ListView1.ListItems.Clear
'CARGAR CARGOS
Set cmd = New Command
Set rs = New Recordset
With cmd
.CommandType = adCmdStoredProc
.CommandText = "sp_con_mant"
Set .ActiveConnection = cnn
.Parameters(1).Value = "busquedafilesporsol"
'.Parameters(2).Value = Me.txtSolicitud.Text
Set rs = .Execute
End With
Dim list As ListItem
Dim nList As ListItems

Do While Not rs.EOF
Set list = Me.ListView1.ListItems.Add(, , rs("arc_desc"))
With list
.SubItems(1) = rs("arc_nombre") & "." & rs("arc_extension")
.Tag = rs("arc_id_arc")
End With
rs.MoveNext
Loop
Set rs = Nothing
Set cmd = Nothing
end sub

El problema que tengo es el siguiente...

cuando intenta ejecutar la siguiente linea:
Set list = Me.ListView1.ListItems.Add(, , rs("arc_desc"))
me dice "Error 13, no coinciden los tipos..."

¿a alguien se le ocurre porque sale este error?

Gracias