سؤالي في النسخ الإحتياطي

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

سؤالي في النسخ الإحتياطي

لدي قاعدة بيانات يتم انشاءها عند بدء تشغيل البرنامج

كما هو موضح هنا

If os = "" Then

Set newdb = CreateDatabase(App.Path & "xxx.mdb", dbLangGeneral)

newdb.Execute "create table x1(num integer,aname text(15),unit text(6),count single,notes text(10),mwrd text(20),mostnad text(5),sdate date)"

Rem"""""""""""""""""""""وهكذا نقوم بانشاء بقية الجداول

Else

Set newdb = OpenDatabase(App.Path & "xxx.mdb", dbOpenDynaset, False)

Form1.Show

End If

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

فظهرت لدي هذه المشكله في هذا السطر

CompactDatabase MyDBF, MyPath + "Temp.Mdb", dbLangArabic, , ";pwd=" & "shaimaa"

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

فما هو التعديل المطلوب رغم انني حاولت ان احذف كلمة المررور لكن ليس هناك فايدة

ارشدوني الى الحل وياليت سمير

يطلع علبه

وشكرا