کمک در تغییر داده های جدول

[swallow.pa]

سلام به همه دوستان
عکسی رو که گذاشتم مربط به دو جدوله تحت عنوان Person و BookCard اشتباهی که برنامه نویس قبلا روی این بانک انجام داده اینه که Id جدول Person رو کلید اصلی قرار داده بود در صورتیکه خود PersonId باید کلید اصلی باشه و اینو بگم Id و PersonId مقادیرشون متفاوته
حالا من می خوام تمام PersonRef توی جدول BookCard رو به PersonId تغییر بدم من فقط سوالم اینه:

می خوام اگه تغییراتی توی دیتابیس بدم خطائی اتفاق افتاد اون تغییرات منتفی بشه
و چه راه حل بهتری سراغ دارید
ضمنا اطلاعات توی جدولها خیلی هستن
ممنون از همه

[swallow.pa]

کدهای من اینه دوستان ضمنا ارتباط جدولها رو برداشتم


Dim I As Integer = 0
Dim F As Integer = 0
With bsPerson
.MoveFirst()
ProgressBarX1.Maximum = .Count
For I = 1 To .Count
DataSet1.BookCard.Clear()
BookCardTableAdapter.Fill(DataSet1.BookCard, .Current.Item("Id"))
If bsBookCard.Count <> 0 Then
bsBookCard.MoveFirst()
ProgressBarX2.Maximum = bsBookCard.Count
For F = 1 To bsBookCard.Count
bsBookCard.Current.Item("PersonRef") = .Current.Item("PersonId")
bsBookCard.MoveNext()
ProgressBarX2.Value = F
Next F
bsBookCard.EndEdit()
BookCardTableAdapter.Update(DataSet1.BookCard)
End If
.MoveNext()
ProgressBarX1.Value = I
Next I