[VB.NET] هل هناك كود افضل من هذا لمشكلة الترقيم التلقائي ؟

كود :

If DS.Tables("Tab1").Rows.Count = 0 Then Beep() : Exit Sub



        Try



            Application.DoEvents()

            Dim cmd As New OleDb.OleDbCommand("", Cn)



            Cn.Open()



            'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه   



            cmd.CommandText = "ALTER TABLE Tab1 DROP CONSTRAINT PrimaryKey"

            cmd.ExecuteNonQuery()







            ' ID كود حذف حقل الترقيم التلقائي الي اسمه  



            cmd.CommandText = "ALTER TABLE Tab1 DROP COLUMN ID "

            cmd.ExecuteNonQuery()







            'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  



            cmd.CommandText = "ALTER TABLE Tab1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "

            cmd.ExecuteNonQuery()







            'تغيير نوعية الحقل من ترقيم تلقائي الى رقم 

            cmd.CommandText = "ALTER TABLE Tab1 ALTER COLUMN ID Long"



            cmd.ExecuteNonQuery()



            Cn.Close()



            'تحديث قاعدة البيانات

            DS.Clear()

            DP.Fill(DS, "Tab1")

            Grid()

            DataGridView1.AllowUserToAddRows = False

            MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")



        Catch ex As Exception



            Cn.Close()



            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)



        End Try

    End Sub

كود :

Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.mdb;")

    Dim DS As New DataSet

    Dim DP As New OleDb.OleDbDataAdapter("Select * from Tab1", Cn)