Create A ListView Control At Run-time ?

I am trying to create a ListView control at run-time and populate it with data from a SQL Query, I can create and execute the SQL query returning my desired data, I can create the listview control, but I can not get the list view to Populate data from the ListviewGroup I am creating from the SQL query. Code Snippet Follows.

Dim ItemGroupSQL As New ListViewGroup
' Create three items and three sets of subitems for each item.
a = 0

[Code].....

This will create a ListView Box and populate the data in a very odd way, every row will have 5 columns with the same data repeated in each column. I have verified (using the commented out msgbox statements you see) that the ItemGroupSQL variable is being populated correctly. but Listview1.items.addrange(itemgroupSQL.items()) does no add the data to the listview correctly

Am I using incorrect syntax for Items.Addrange?