[VB.NET] شباب عند برمجة كود اعادة الترقيم تظهر لى رساله

PHP كود :
If DataSet1.Tables("dri").Rows.Count = 0 Then
            MsgBox("الجدول فارغ من السجلات يتطلب وجود سجل واحد على الاقل", 16 + 524288, "تنبيه")
            Exit Sub
        End If
        If MsgBox("  هل تريد استعادة ترقيم السجلات  " & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "استعادة ترقيم السجلات") = MsgBoxResult.Cancel Then Exit Sub
        Try
            Application.DoEvents()
            Dim cmd As New OleDb.OleDbCommand("", Con)
            Con.Open()
            cmd.CommandText = "ALTER TABLE dri DROP CONSTRAINT PrimaryKey"
            cmd.ExecuteNonQuery()
            cmd.CommandText = "ALTER TABLE dri DROP COLUMN driID"
            cmd.ExecuteNonQuery()
            cmd.CommandText = "ALTER TABLE dri ADD COLUMN driID COUNTER CONSTRAINT [PrimaryKey] Primary key"
            cmd.ExecuteNonQuery()
            DataSet1.Clear()
            DataAdapter.Fill(DataSet1, "dri")
            Con.Close()
            MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "هناك خطأ ما", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try