Recordset-adding to a Listview

I've got a weird problem - - - it must be something simple, but for the
life of me, I must be missing it...

I've got a recordset - and I'm trying to add the results into a listview,
but, instead of adding each successive record after the first line of the
listview, it adds it before (above) the line it just entered...

here's my code (recordset returned):

While Not rs.EOF
Set list_item = LView.ListItems.Add(rs("Filename"))
Debug.Print "filename=" & rs("Filename")
list_item.SubItems(1) = rs("Artist")
Debug.Print "Artist=" & rs("Artist")
.........etc
Recs = Recs + 1
rs.Next
Wend
I tested it by doing an order by Filename-DESC
the weirdest part is that, in the debug statements, if I step through it,
the records seem to be coming in correctly - Descending - but, since the
records are getting added into the listview above each entered item - it
ends up being Ascending --- and changing it to Ascending doesn't help

any ideas? - - - I have little or no hair left -- I've pulled it all out.

Okay Elmo,

Let's see if we can preserve the rest of your hair.

The one thing that jumps out at me is the lack of including an index value
when inserting the record into the listview control. I know the BOL says
this value is optional, but IMO, that value should be required.

Try this ...
Dim nIndex as Integer

nIndex = 1
:
:
Do While ...
Set list_item = LView.ListItems.Add(nIndex, , rs.Fields("Filename").Value)
:
nIndex = nIndex + 1
Loop

That should populate the listview control the way you are expecting. Now
then, there are a couple of other issues ... highly opinionated and only a
visual bug.
1. The use of WHILE ... WEND is a deprecated structure back to the early
days of VB; use the DO WHILE ... LOOP instead.
2. When accessing your recordset values, use rs.Fields("Filename").Value
(fully qualified), and not the shorthand notation.

Again, these last two are just me being picky, and leaving them as-is will
not affect the outcome of your code. Give the listview idea a try. Good
luck; hope it works.
Richard

"Elmo Watson" wrote:

 > I've got a weird problem - - - it must be something simple, but for the
 > life of me, I must be missing it...
 >
 > I've got a recordset - and I'm trying to add the results into a listview,
 > but, instead of adding each successive record after the first line of the
 > listview, it adds it before (above) the line it just entered...
 >
 > here's my code (recordset returned):
 >
 > While Not rs.EOF
 > Set list_item = LView.ListItems.Add(rs("Filename"))
 > Debug.Print "filename=" & rs("Filename")
 > list_item.SubItems(1) = rs("Artist")
 > Debug.Print "Artist=" & rs("Artist")
 > .........etc
 > Recs = Recs + 1
 > rs.Next
 > Wend
 > I tested it by doing an order by Filename-DESC
 > the weirdest part is that, in the debug statements, if I step through it,
 > the records seem to be coming in correctly - Descending - but, since the
 > records are getting added into the listview above each entered item - it
 > ends up being Ascending --- and changing it to Ascending doesn't help
 >
 > any ideas? - - - I have little or no hair left -- I've pulled it all out.
 >
 >
 >