ظهور رسالة خطأ فى كود إعادة الترقيم التلقائى

بسم الله الرحمن الرحيم

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

عندى مشكلة فى كود الترقيم التلقائى 

حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة 

وهذا هو الكود المستحدم فى عملى استعادة الترقيم 

 If SQLBindingSource1.Count = 0 Then Beep() : Exit Sub


        
        Application.DoEvents()

        Dim cmd As New SqlCommand("", con)

        con.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()

        con.Close()

        'تحديث قاعدة البيانات
        SQLDataSet1.Clear()
        SQLDataAdapter1.Fill(SQLDataSet1, "Tab1")

        DataGridView1.AllowUserToAddRows = False

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

ولكم جزيل الشكر مقدماً