Hi! If you are trying to populate the ListView try this:

Dim x as ListItem

Do while not rs.eof
set x=lvw.ListItems.Add Text:=rs("Element_Name")
rs.MoveNext
loop

I hope this is what you're looking for?