انتخاب آیتم پس از جستحو

سلام

من میخوام پس از جستجو در عنوان ها با کلیک روی موضوع جستجو شده بتونم متتش رو نشون بدم

Sub Search_QuerySubmitted (Query As String)
'Sub Search_QueryTextChange (Query As String)
	Activity.LoadLayout("search")
	Listser.Clear
			Dim stronvan As String
	sv.Iconfied = True
	
	si.ItemCollapsed = True
	cr = sql.ExecQuery("Select * from tblfehrest Where onvan LIKE '%"&Query&"%'")
		For i=0 To cr.RowCount-1
			cr.Position=i
		Listfeh.Clear
			stronvan=cr.GetString("onvan")
			Listser.AddSingleLine(stronvan)
			
	Next
	
	bt.Initialize(LoadBitmap(File.DirAssets , "lblp.png"))
	Listser.SingleLineLayout.Label.Color=Colors.RGB(28,48,58)
	Listser.SingleLineLayout.Label.TextColor=Colors.White
	Listser.SingleLineLayout.Label.TextSize=26
	Listser.SingleLineLayout.Label.Gravity=Gravity.CENTER
	
	Listser.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("BKoodakBold.ttf")
	Listser.Color=Colors.RGB(207,216,220)
	
End Sub

این کد جستجوی منه

تشکر