عند تشغيل البرنامج البيانات تظهر من اخر السجل

ارفق لنا مثال لفحصة

Public Class Form4

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        End
    End Sub                           الخروج من البرنامج

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Me.Hide()
        Form2.Show()                                           لعرض شاشة اخرى
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label59.Text = TimeOfDay
        Label64.Text = DateString                لعرض الوقت والتاريخ
    End Sub

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        Me.File9TableAdapter.Fill(Me.Db1DataSet.file9)
     
        Me.File8TableAdapter.Fill(Me.Db1DataSet.file8)
       
        Me.File7TableAdapter.Fill(Me.Db1DataSet.file7)
       
        Me.File6TableAdapter.Fill(Me.Db1DataSet.file6)
       
        Me.File5TableAdapter.Fill(Me.Db1DataSet.file5)         هذه الاكواد لعرض ملفات الاكسس انا عامل 9 جداول file1.2.3.4.5.6.7.8.9
      
        Me.File4TableAdapter.Fill(Me.Db1DataSet.file4)
       
        Me.File3TableAdapter.Fill(Me.Db1DataSet.file3)
       
        Me.File2TableAdapter.Fill(Me.Db1DataSet.file2)
       
        Me.File1TableAdapter.Fill(Me.Db1DataSet.file1)

      
    End Sub



    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click


        Me.File1BindingSource.MoveFirst()     هذا الكود الخاص بالجدول الاول لعرض الملفات السجل الاول
    
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Me.File1BindingSource.MoveNext()   هذا الكود الخاص بالجدول الاول لعرض الملفاتالسجل التالى
    End Sub

    
    Private Sub BindingNavigator1_RefreshItems(sender As Object, e As EventArgs) Handles BindingNavigator1.RefreshItems
        Me.Validate()
        Me.File1BindingSource.EndEdit()
        Me.File1TableAdapter.Update(Me.Db1DataSet.file1)  هذه الاكواد لتعريف bindingnavigator   للاول جدول file1  لعمل شجل اول والاخير والتالى والسابق ومش عارف الكود ده الصح ولا لا علشان انا السجلات بتظهر عندى من الاخر وليست من البداية
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Me.File1BindingSource.MoveLast()   هذا الكود الخاص بالجدول الاول لعرض الملفات السجل الاخير
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Me.File1BindingSource.MovePrevious()  هذا الكود الخاص بالجدول الاول لعرض الملفات السجل السابق
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.File1BindingSource.AddNew()   الجديد
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        File1BindingSource.RemoveCurrent()  للحذف ولسه هقوم بتعديل عليه وضع رسالة تحذيرية

    End Sub
End Class

ارجو المساعدة لماذا السجلات تظهر من اخر سجل وليست بداية السجل وشكرا

استاذ محمد هو مساحة البرنامج فوق ال2ميجا مش عارف ينفع يتبعت ولا لا