این کد کمکتون می کنه  که اگه تو RunTime برنامتون نیاز به ساختن یک فایل mdb داشت بتونین ایجادش کنین.که البته همون طور که میدونین ماله Access هست.


البته قبل از این کار از منو refrences گزینه microsoft dao 3.5 رو به پروژتون اضافه کنین.


Dim ws As Workspace
Dim db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("C:\test.mdb", dbLangGeneral & ";pwd=Password")


                 و یا


Set db = ws.CreateDatabase("C:\test.mdb", dbLangGeneral & ";pwd=")


دقت کنید به جای عبارت رنگی شده هر عبارت موجود password فایل ایجاد شده خواهد بود.اگه خواستید به جای اون هیچی ننویسین