有网友问到如何在ACCESS窗体上执行命令，在指定文件夹生成一个ACCESS数据文件。
利用代码动态创建一个Access数据库文件在运用中确实会经常用。因为有时需要把数据导入到一个新的Access数据库中。
示例，在C盘中创建一个名为“我的数据库”的accdb文件。
Public Sub CreateMdbFile()
Dim myCat As New ADOX.Catalog
Set myCat = CreateObject("ADOX.Catalog")
myCat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\我的数据库.accdb'"
Set myCat = Nothing
End Sub
注意：
需要引用对象：Microsoft ADO Ext. 2.8 for DDL and Security
创建效果如下图：
更多的Access技巧：请关注Office中国论坛
