我的按钮名为Command10，Access文档新建在当前目录下，代码如下

Private Sub Command10_Click()

Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog

'在当前目录下建立名为newdata的Access数据库

cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\Access练习实例.mdb" + ";")

a = MsgBox("新建成功！文件建立在当前目录中！", 1, "成功")

Dim MSAccess As New Access.Application

MSAccess.OpenCurrentDatabase (App.Path & "\Access练习实例.mdb")

Set MSAccess = OpenDatabase(Access练习实例)

MSAccess.Visible = True

End Sub