ربط زر السجل للامام والخلف والسجل الاول

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

انا في بداية مشروع لمنظومة شئون الموظفين وعملت التحليلات والفورم ولدي بعض الافكار وقد رائيت المشاريع اغلبها مربوط بالاكسس وليس ب SQL

علما بان دليل او الادلة هيا مربوط بي كومبو بوكس في الملف الشخصي

والادلة تمشل كمثال :

دليل الادارت

ودليل المؤهلات العلمية

دليل الجنسيات

اود منكم مساعدتي في كود برمجي للازرار السجل الامام والخلف والسجل الاول والاخير بنفس النسق الكود الحالي في الاتصال ولكم جزيل الشكر ..علما بإني اقف عند بعض النقاط وارجو منكم التكفل بمساعدتي ووضعي علي الطريق الصحيح

وشكراً

الملف الخاص بلجزء المطلوب الا وهو الادلة والتي تتكون

معلومات : معلومات الفورم : الرقم =txtmag_no

الادارة: txtmag_name

مدير الادارة:txtmag_boss

صفته: txtmag_sgin

الداتا بيز :index_mangment

mangment_no

,mangment

,boss

,sign

HSR_1.rar

كود التعديل في دليل الادارات

  Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click
        If txtmag_no.Text = "" Then
            MsgBox(" هل انت متأكد من عملية التعديل ", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ عملية الحدف")
            txtmag_no.Focus()
        ElseIf Not IsNumeric(txtmag_no.Text) Then
            MsgBox("لايمكنك ادخال قيمة غير عددية للاسم", MsgBoxStyle.MsgBoxRtlReading, "ادخال خاطئ")
            txtmag_no.Text = ""
            txtmag_no.Focus()
        Else
            If MessageBox.Show("هل انت متأكد من تعديل سجل الموظف الحالي", "حدف سجل موظف", MessageBoxButtons.YesNo, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = Windows.Forms.DialogResult.Yes Then
                Try
                    CON.Open()
                    'Dim sq As String = "update index_mangment set magment='" + txtmag_name.Text + "',boss =" + txtmag_boss.Text + ",sign ='" + txtmag_sgin.Text + "' where magment_no=" + txtmag_no.Text + ""
                    Dim sq As String = "UPDATE index_mangment SET magment = '" & txtmag_name.Text & "' , boss = '" & txtmag_boss.Text & "' , sign= '" & txtmag_sgin.Text & "'  WHERE magment_no ='" & txtmag_no.Text & "'"

                    Dim cmd As New SqlCommand(sq, CON)
                    cmd.ExecuteNonQuery()
                    MsgBox("تمت عملية التعديل البيانات بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحدف")

                    txtmag_no.Text = ""
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    CON.Close()
                End Try
            Else
                MsgBox("تم الغاء عملية التعديل بناء على رغبتك", MsgBoxStyle.MsgBoxRtlReading, "الغاء عملية التعديل")
            End If
        End If
    End Sub

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