مشكلة التنقل بين الصفوف بشكل عشوائي

السلام عليكم ورحمة الله وبركاته

قمت بعملة بواسطة الفيجول بيسك6 وربطه بقاعدة بيانات اكسس وقد كان يعمل بشكل صحيح حيث يقوم بعملية عرض واضافة وتنقل ولا يوجد به امر للحذف حيث ان الجدول يحتوي على ترقيم تلقائي ويعمل دون أي مشاكل الى قبل فترة اصبح لا يتنقل بين الصفوف بشكل صحيح وبدل ان يذهب الى الصف الاول او الاخير يقوم باختيار صف اخر ويحتسبه الاول او الاخير وعليه يتم التنقل بين السجلات بطريقة ليست مرتبة وخاطئة

وهذا الكود يوضح الطربقة التي يتم من خلالها ربط قاعدة البيانات

Public DB As New ADODB.Connection

Public Rs_0 As New ADODB.Recordset

Public Sub ConData()

DB_Path = App.Path & "/Data.mdb"

DB.CursorLocation = adUseClient 'DB.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" + DB_Path

DB.Open App.Path & "\Data.mdb"

Rs_0.Open "grade", DB, adOpenStatic, adLockPessimistic

End Sub

ويتم الانتقال الى السجل الاخير بواسطة

Rs_0.MoveLast

والسجل الاول

Rs_0.MoveFirst

انشاء الله يكون في حد واجه نفس المشكلة ويعطيني الحل