Populatedata for each row in listview

See more:

VB

i am trying to search in listview and i am using column16 to populate the record for the department name the objdatareader is trying to read column15 it's a deparment id for each row, now all i want is to identify column 15 to know the department name

the problem is when i populate the record it will display horizontally but i want is vertically...



here's my sample code

  Dim objDataReader As OleDbDataReader
        objDataReader = objCommand.ExecuteReader
        If objDataReader.HasRows = 0 Then

            txtCostCenter.Text = ""
            txtDivision.Text = ""
        End If


        While objDataReader.Read






           

            For Each item2 As ListViewItem In lstLicense.Items
                With item2

                    item2.SubItems.Add(16).Text = (objDataReader("Division")).ToString

                End With
            Next
            '  Next
        End While

Dim v As Integer
 

       
        Dim aa As ListViewItem
        lstCostCenter.Items.Clear()
        Dim strSQL As String
 
        For Each item2 As ListViewItem In lstLicense.Items
 

            strSQL = "SELECT * FROM tblEndUserDetails WHERE CostCenter Like '" & item2.SubItems(15).Text & "%'"
 
            classLibrary = New ConLib
            classLibrary.openConnection(strConnection)
            lblconstat.Text = DatabaseStatus
            If Not classLibrary.isconnectionopen() Then
                Exit Sub
 
            End If
 
            classLibrary.initializeCommand(strSQL)
 
            populateDatAddCostCenterPopUpBox3()
 
        Next

End Sub