كيفية حذف سجل من أحد الجدولين في تعليمة الأس كيو أل

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

لدي جدولين الأول خاص بالعقود Contracts والأخر خاص بالمشروعات Projects

أستخدمت في جدول المشروعات حقلا غريبا وله علاقة بينه وبين المفتاح الرئيسي في جدول العقود , حيث أنها علاقة one to many

قمت بفتح الجدولين بإستخدام تعليمات الأس كيو أل في جملة واحدة هكذا

RS.Open "Select * From Contracts,Companies where Companies.PID = Contracts.CompanyID", Db, adOpenDynamic, adLockOptimistic

المتغير الذي سيحمل الجدولين أسمه RS

سؤالي الأن . أريد أن أقوم بعمل :

RS.Delete

ليقوم بحذف السجل الحالي من جدول العقود دون حذف السجل الحالي بجدول المشروعات

حيث أني قمت بعملها فقام بحذف السجل الحالي بجدول المشروعات ولم يمس جدول العقود

أسف للإطالة