مشكلة في التنقل بين السجلات والبحث معا

إخواني الأفاضل أعضاء المنتدى الكرام

تحية طيبة وبعد

محتاج مساعده في ظبط الكود التالي

أنا استخدمت الكود التالي في التنقل بين السجلات والحمد لله ماشي تمام بدون مشاكل  ومستخدم كود للبحث عن رقم معين في الجدول والحمد لله تمام

المشكلة ببساطة أثناء التنقل بين السجلات ( أمام خلف بداية نهاية ) هافترض إني واقف على السجل رقم 10 من 100 مثلا

وضغط على مفتاح بحث بيظهر Inbutbox  فبدخل رقم 50 مثلا فينتقل للرقم 50 ويعرض بدون مشاكل

محتاج لما أنقر على مفتاح تالي في مفاتيح التنقل  أو مفتاح خلف يكمل بعد 50 أو قبل إلى بيحصل إنه بيكمل من بعد إلى كنت واقف عليه وهو رقم 10 مثلا مع انه عارض بيانات رقم 50 أرجوا أكون وفقت في طرح المشكلة وإليكم الكود

 كود لعمل Databinding لمربعات نص

 
Private Sub Navigate_Main_Journal() 'تجهيز وتعبئة الداتا سيت
DataSet_Sql.Clear()
If Conn_SqL.State = ConnectionState.Open Then Conn_SqL.Close()
Dim Sql_sql As String = "select * from [A_Main_Journal] order by [Id_Journal]"
Dim DataAdapter_Sql As New SqlDataAdapter(Sql_sql, Conn_SqL)
DataAdapter_Sql.Fill(DataSet_Sql, "A_Main_Journal")
Conn_SqL.Close()
DataAdapter_Sql.Dispose()
TextBox1.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.Id_Journal")
TextBox2.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.Date_journal")
TextBox3.DataBindings.Add("Text", DataSet_Sql, "A_Main_Journal.discription_Journal")
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Position = 
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Count - 1
End Sub

كود التنقل بين السجلات

me.BindingContext(DataSet_Sql, "A_Main_Journal").Position = 0
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Count - 1
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Position += 1
Me.BindingContext(DataSet_Sql, "A_Main_Journal").Position -= 1

كود البحث عن رقم معين

Dim Fname As String
Fname = Interaction.InputBox ("أدخل رقم القيد")
If Fname <> "" Then
TextBox1.Text = Fname
Else
End If

 اتوقع حل المشكلة ممكن يكون في البحث داخل dataset نفسها

ياريت التوضيح