Does anybody know what changes I have to make to the code below so that the first column in the list view does not print? Thank you.

For intColumn = 0 To mrsSelect.Fields.Count - 1
Set colNew = lvwDisplay.ColumnHeaders.Add(, ,
mrsSelect(intColumn).Name)
Next intColumn
lvwDisplay.View = lvwReport

mrsSelect.MoveFirst

intRow = 1
Do While Not mrsSelect.EOF
Set itmx = lvwDisplay.ListItems.Add(intRow, , mrsSelect.Fields(0))
For intColumn = 1 To mrsSelect.Fields.Count - 1
itmx.ListSubItems.Add , , mrsSelect.Fields(intColumn) & " "
Next intColumn
mrsSelect.MoveNext
intRow = intRow + 1
Loop


Archie Kantzavelos


Archie Kantzavelos