Iniciado por ronaldxl

Public Sub fill_list()
Dim lst As ListItem
Este es el codigo que tengo pa llenar un listview,
Dim i As Variant
ListView1.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub

While Not rs.EOF

Set lst = ListView1.ListItems.Add(, , rs(0))
For i = 1 To 13
lst.SubItems(i) = rs(i) <------------------------------¡¡¡¡¡ERROR!!!!!!!
Next i
rs.MoveNext

Wend
End Sub


Pero en la parte donde coloque error (lst.Subitems(i)=rs(i)) me da el error "invalid property value "
Por favor ayudenme!!!!!!