ListView Control in VBA for MS Access

[antigone]

Has anyone used the listview control in VBA for Access? I'm having trouble getting the data to display all across in a single row. Instead it steps down like stairs. This is the code I tried using but it gives me an error, "Object doesn't support this property or method", on the Set LIX line.

Dim LIX As ListItem
Dim rsDisk As Recordset
Dim iCount As Integer


lvwList.ListItems.Clear
lvwList.ColumnHeaders.Clear
Set rsDisk = Application.CurrentDb.OpenRecordset("tbl_P48_Diskette&quot

For iCount = 0 To rsDisk.Fields.Count - 1
lvwList.ColumnHeaders.Add , , rsDisk.Fields(iCount).Name
Next

Do While Not rsDisk.EOF
For iCount = 0 To rsDisk.Fields.Count - 1
If iCount = 0 Then
Set LIX = lvwList.ListItem.Add
LIX.Text = rsDisk.Fields(iCount).value & ""
Else
LIX.SubItems(iCount) = rsDisk.Fields(iCount).value & ""
End If
Next
rsDisk.MoveNext
Loop
rsDisk.Close
Set rsDisk = Nothing

 

[Schof]

Shouldn't it be Set LIX = lvwList.ListItems.Add?