Adding subitems to a listview

[venerable bede]

I am not to familiar with VB 6 so forgive
.
I am using the following to add a second column :

 Set item = listView.ListItems.Add(, , "AAA")
item.SubItems(1) = "BBB"

But the second line keeps giving me "Invalid property value".

Any ideas what I am doing wrong ?

TIA