ساخت mdb در اکسس xp

دوستان من با این فرمان در ویندوز 2000 و آفیس xp یا همون 2002 به راحتی بک آپ میگیرم ولی این فرمان در جایی که ویندوزش xp است و آفیسش 2003 کار نمی کنه لطف کنید نگاه کنید به این فرمان

sDataBaseName = "a:\db1.mdb"

Set wrkDefault = DBEngine.Workspaces(0)

Set dbsNew = wrkDefault.CreateDatabase(sDataBaseName, _

    dbLangGeneral, dbEncrypt) 'Create New DataBase

dbsNew.Close 'close database

DoCmd.CopyObject "a:\db1.mdb", "1", acTable, "1"

err:

    If err.Number = 3204 Then 'DB exists

        Kill sDataBaseName

        Resume

    End If

End Sub

البته بخش ساخت db1 کار نمی کنه کمک کنید لطفا

رفرنسها رو چک کردی

بله چک کردم اونها مشکل نداره تو بخش creat db1 مشکل میگیره .
اگه دستور دیگه ای برای ساخت یک new access با اسم db1 وجود داره لطفا برام بگذارید
ممنون می شم

چه اروری میده ؟

پیغام میده sDataBaseName is not define میگه تعریف نشده است
راستی ورژن office مرد نداشت همان 2000 بود با convert تغییر ورژن هم دادم هم 97 هم 2003 تاثیری نداشت
help me

این دفعه شروع کردم با dim به تعریف کردن و هردفعه می گفت یکی دیگه تعریف نشده اولی رو string و دو تا بعدی رو variant تعریف کردم ولی آخرش error نگرفت ولی کاری هم نکرد (ضایعم کرد)
کمکی ای دوستان

اومدم مقایسه کردم تو xp وقتی dim رو می زنم database رو بهم نمیده و لی تو 2000 می یاد نمی دونم مثل اینکه microsoft jetdatabase enigin روش نصب نیست از کجا می تونم بیارمش یه راهی کمکی ....

مشکل حل شد
vba- tools -refrens -microsoft dao 3.6 رو تیک زدم مشکل حل شد
ساده بود نه .....
ای ای ای

آفرین این نشون می ده شما می تونید با تلاش و پیگیری موضوع خیلی از مشکلاتو حل کنید و بقیه دوستان هم استفاده کنن .
حالا که به نتیجه رسیدی عنوان گفتگوی شما رو عوض می کنم تا بشه در مباحث مفید جاش داد .

به خاطر یه تیک ادم چند روز الاف میشه ......
من اولش گفتم رفرانسها رو چک کردی بر همین بود دیگه ،با کدهای که شما نوشتی فکر کردم چنین چیزی رو بدونی والا می گفتم باید ان رو چک بزنی عدم دسترسی به سایت هم مزید بر علت شد
در پروژه باید چک اون برداری و اینو چک بزنی :
microsoft activex data objects library