تعديل على كود

هذا الكود لا يصلح الا اذا كان الجدول ضمن القاعدة

Dim RR As Database
Dim YY As Recordset
Set RR = CurrentDb
Set YY = RR.OpenRecordset("Option", DB_OPEN_TABLE)

لو كان الجدول ليس ضمن القاعدة ولكنه مرتبط

ماهو التعديل على الكود