Visual Basic - ERROR en subitems de un ListView!!!

Tengo un problema al tratar de acceder a la propiedad .ListItems.Add().SubItems de un Listview, pues al correo el programa me lanza un error de: Invalid Property Value, alguien sabe que puede estar pasando?
Gracias de antemano!

Fijate con esto:

With ListView1
.View = lvwReport
.ColumnHeaders.Clear
.ListItems.Clear

.ColumnHeaders.Add , "Columna1", "Columna1"
.ColumnHeaders.Add , "Columna2", "Columna2"

Set objListItem = .ListItems.Add(, , "Columna1")
objListItem.SubItems(0) = "Columna2"
End With