call PopulateListView (vb.net 2003)

Private Sub PopulateListView()
        Dim oledbcon = New OleDbConnection(con)
        Dim strSQL As String

        Dim objRead As OleDbDataReader
        Dim lv As ListViewItem

        oledbcon.Open()
        Try
            ListView1.Items.Clear()
            strSQL = "SELECT * FROM tempBilling"
            Dim cmd As New OleDbCommand(strSQL, oledbcon)
            objRead = cmd.ExecuteReader

            While objRead.Read

                lv = Me.ListView1.Items.Add(objRead("ItemID") & "")
                lv.SubItems.Add(objRead("Description") & "")
                lv.SubItems.Add(objRead("Quantity") & "")
                lv.SubItems.Add(objRead("Unit") & "")
                lv.SubItems.Add(objRead("UnitPrice") & "")
                lv.SubItems.Add(objRead("Total") & "")


            End While

            objRead.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            oledbcon.Dispose()
            oledbcon.Close()

        End Try

    End Sub