I'm trying to populate a ListView similar to the example on page 479 of "Beginning VB6 Database Programming" by John Connell, except I'm using ADO rather than DAO. I get the following runtime error at the "itemToAdd.SubItems(n)" lines:
Runtime error ‘380’: Invalid property value

My code extract is below. I’ve checked the Recordset is opened correctly and the fields are valid Strings – I’m using Biblio.mdb for testing. The ListView gets populated OK with the Title fields if I comment out the itemToAdd lines.

Any ideas?

While Not .EOF
            Set itemToAdd = lvProjects.ListItems.Add(, , !Title)
            If Not IsNull(![Year Published]) Then
                itemToAdd.SubItems(1) = CStr(![Year Published])
            End If
            If Not IsNull(!Description) Then
                itemToAdd.SubItems(2) = !Description
            End If
            .MoveNext
Wend

Do you have the subitems for the listview? In design time right click the list view ... You must have 3 fields in the example you gave.

Lucian Preda
[email protected]

The listview is being set up OK with 3 columns & column headers, if that's what you mean - or am I missing something else?