[VB.NET] تحويل كود من أكسس إلي سيكوال سيرفر

كود :
       Try



            Application.DoEvents()

            Dim cmd As New SqlCommand("", con)



            con.Open()



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



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

            cmd.ExecuteNonQuery()







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



            cmd.CommandText = "ALTER TABLE customer DROP COLUMN مسلسل "

            cmd.ExecuteNonQuery()







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



            cmd.CommandText = "ALTER TABLE customer ADD COLUMN مسلسل COUNTER CONSTRAINT [PrimaryKey] Primary key "

            cmd.ExecuteNonQuery()







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

            cmd.CommandText = "ALTER TABLE customer ALTER COLUMN مسلسل Long"



            cmd.ExecuteNonQuery()



            con.Close()



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

            ds.Clear()

            DataAdaper.Fill(ds, "customer")



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



        Catch ex As Exception



            con.Close()



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



        End Try