مشكلة في الأتصال بقاعدة البيانات

السلام عليكم ...

الشهر عليكم مبارك ...

انا مبتديء في الفيجوال .. حاولت أوسي لي برنامج صغير ... وربطت القاعدة وتظهر لي هذه الرسالة :

وبالتتبع يعطي الخطأ في هذا الكود :

db.Provider = "Microsoft.jet.oledb.4.0;"
db.Open App.Path & "\DB10.mdb"
MsgBox " تم الأتصال بنجاح"
rs.Open "[جدول1]", db, adOpenStatic, adLockPessimistic

فما هي المشكلة يا معلمين !

واعذروني على السؤال ..