التخلص من رسائل الأخطاء

السلام عليكم

أخواتي الكرام

دائماً عندما يكون لدينا برنامج على الشبكة ويصبح فصل في الشبكة تظهر أكثر من رسالة خطأ ومن الصعوبة على المستخدم التخلص منهم إلا عن طريق إنهاء الأكسس من قائمة العمليات ولذالك أعتمد على طريقة كود يقوم بالتأكد من قاعدة البيانات كل 5 ثواني عن طريق هذا الكود :

On Error GoTo Error:
R = "\\server\data\database.mdb"
Open R For Input As #1
Close
Exit Sub
Error:
DoCmd.Quit acQuitSaveNone

ولكن دائماً تظهر رسالة الخطأ قبل وصول الوقت المحدد للتأكد وليس منطقياً أن أضع كل 1 ثانية

لو سمحتم هل يوجد طريقة آخرى أتمكن من التأكد من وضع الشبكة وإغلاق برنامجي عند وجود فصل في الشبكة بشكل نظامي ولاتظهر ولا رسالة خطاً مهما كان الأمر

أسف على الأطالة ولكن من شرح المشكلة والسلام عليكم

وحزاكم الله خيرا