وضع برنامج لاكثر من مستخدم

ما هو الكود المستخدم للاتصال بقاعدة البيانات ؟

السلام عليكم الكود التالي المستخدم في البرنامج مع ملاحظة اني غيرت مسار القاعدة ووضعتها على سيرفر

If db.State = adStateOpen Then db.Close

db.Provider = "microsoft.jet.oledb.4.0;Jet OLEDB:Database password="

db.Open "\\Server1\D\supplierbackup\supplier1.mdb"

السلام عليكم اخواني وجد علة البرنامج سبحان الله خطأ صغير يوقف برنامج في الشاشة الافتتاحية التي فيها العناوين لم اضع كود الاتصال ولكن الخطا لم يظهر الا عندما بدء اكثر من مستخدم الاتصال بقاعدة البيانات وبالتالي لايحدث اتصال جديد مع قاعدة البيانات واعتذر لكم