Command10，Access数据库

我的按钮名为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