search records(vb.net 2008)

 Private Sub searchListView()
        connection_open()
        Try
            ssql = "SELECT * FROM tblitem_transaction where ticketno like '" & txtticketno.Text & "%'"
            cmd = New OleDbCommand(ssql, olecon)
            objRead = cmd.ExecuteReader
            While objRead.Read
                lv = Me.ListView2.Items.Add(objRead("item_ID") & "")
                'lv.SubItems.Add(objRead("cus_ID") & "")
                lv.SubItems.Add(objRead("ticketno") & "")
                lv.SubItems.Add(objRead("date_t") & "")
                lv.SubItems.Add(objRead("m_date") & "")
                lv.SubItems.Add(objRead("e_date") & "")
                lv.SubItems.Add(objRead("p_amount") & "")
                lv.SubItems.Add(objRead("interest_r") & "")
                lv.SubItems.Add(objRead("penalty_r") & "")
                lv.SubItems.Add(objRead("s_fee") & "")
                lv.SubItems.Add(objRead("payments") & "")
            End While
            objRead.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            connection_close()
        End Try
    End Sub