مشکل با قسمت جستجوی کتاب در بیسیک فور آندروید

سلام خدمت دوستان گرامی.

ببخشید من یه کتاب ساختم با دیتابیس چندجدولی، حالا تو قسمت سرچ و علاقمندی ها یه مشکل مشابه رو دارم که تاحالا هرچی تلاش کردم و گشتم و پرسیدم به جایی نرسیدم.

شرح مشکل:

وقتی واژه ای رو سرچ می کنی تو قسمت عناوین یا مطالب کتاب به خوبی تو همه جداول می گرده و نشونشون می ده و تا اینجا مشکلی نیست، اما هنگامی که روشون کلیک می کنی فقط مطالب یا عناوین یک جدول رو میاره، حتی اگر روی مثلا مطلب جدول دوم بزنی بازم مطلب جدول اول رو نشون میده.

واسه قسمت علاقمندی ها هم همین مشکل هست. حالا از شما می خوام لطفا بگین چکار کنم و چه دستور شرطی رو تو قسمت آیتم کلیک بنویسم؟

بنده مبتدی مبتدی هستم و این کتاب رو هم از روی یه سورس ناقص ساختم

کدها به صورت زیر هستن:

Sub ImgSearchMatn_Click
	
	IsMain = False
	
	PnlSearch.RemoveAllViews
	PnlSearch.LoadLayout("LSrchOnvan")
		
	Dim StrOnvan As String
	Dim Cur2 As  Cursor
	
	
	If (TxtSearch.Text = "") Then
		ToastMessageShow("متنی وارد نشده" , True)
	 Else
		
		Cur = Sql1.ExecQuery("Select * From TblMatlab2_1 Where Matn1 Like '%" & TxtSearch.Text & "%'")
			
		For j = 0 To Cur.RowCount - 1
		Cur.Position = j
		Cur2 = Sql1.ExecQuery("Select * From TblFeh2_1 Where ID1 = '" & Cur.GetString("FehID1") & "'")
		Cur2.Position = 0
		StrOnvan = Cur2.GetString("OnvanFeh1")
		LV_SrchOnvan.AddSingleLine2(StrOnvan , Cur2.GetString("ID1"))
		
		Next
		
		LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White
		LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER
		LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")
		LV_SrchOnvan.SingleLineLayout.Label.TextSize = 16
		
		Dim img As BitmapDrawable
		img.Initialize(LoadBitmap(File.DirAssets , "itemback.png"))
		
		LV_SrchOnvan.SingleLineLayout.Background = img
		
		'-----------------------------
		Dim StrOnvan1 As String
		Dim Cur3 As  Cursor
				
		Cur1 = Sql1.ExecQuery("Select * From TblMatlab2_2 Where Matn2 Like '%" & TxtSearch.Text & "%'")
		For n = 0 To Cur1.RowCount - 1
		Cur1.Position = n
		Cur3 = Sql1.ExecQuery("Select * From TblFeh2_2 Where ID2 = '" & Cur1.GetString("FehID2") & "'")
		Cur3.Position = 0
		StrOnvan1 = Cur3.GetString("OnvanFeh2")
		LV_SrchOnvan.AddSingleLine2(StrOnvan1 , Cur3.GetString("ID2"))
	
		Next
		
		LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White
		LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER
		LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")
		LV_SrchOnvan.SingleLineLayout.Label.TextSize = 16
		
		Dim img As BitmapDrawable
		img.Initialize(LoadBitmap(File.DirAssets , "itemback.png"))
		
		LV_SrchOnvan.SingleLineLayout.Background = img
		
	End If
	
End Sub

Sub LV_SrchOnvan_ItemClick (Position As Int, Value As Object)
	
	Matlab_Alaqe.FehId1 = Value
	StartActivity (Matlab_Alaqe)
	
	
End Sub