如何用CreateObject打开有用户组权限的MDE并运行其中的窗体

Eiffel

如何用CreateObject打开有用户组权限的MDE
大家知道用CreateObject可以在VB或VBA中运行一个Access实例；并打开和运行你的数据库！
但是如果本身的数据库程序DEMO.mde需要用户组文件DEMO.Mdw才能打开。举例，用户名为DEMO;密码为TEST。
我没办法在VBA中用CreateObject方法打开这个数据库并运行其中的某一个窗体；大家试试！
本来可以用shell函数直接运行；但我发现如果这样做，用文本编辑器打开你的程序；可以发现你打开数据库时的参数、用户名和密码；而且我发现用CreateObject不会出现Access的启动画面。

大家有办法吗？

tmtony

Dim dbe As PrivDBEngine
    Dim wrk As Workspace
    Dim dbs As Database
    Set dbe = New PrivDBEngine
    dbe.systemdb = "c:\tmp.mdw"
    dbe.defaultuser = "tmtony"
    dbe.defaultpassword = "password"
    Set wrk = dbe.workspaces(0)
    Set dbs = wrk.opendatabase("c:\tmp.mdb")

Eiffel

坛主！为何还是这个答案啊！

这不是用DAO访问数据库的代码吗？
我要的是用VB或者其他语言用CreateObject打开有用户组权限的MDE；并运行其中的窗体！

记住是运行其中的窗体！！！！！！

不是读取数据！

Eiffel

注意   请勿将 OpenCurrentDatabase 方法与“ActiveX 数据对象”(ADO) 的 Open 方法或“数据访问对象”(DAO) 的 OpenDatabase 方法混淆。OpenCurrentDatabase 方法在 Microsoft Access 窗口中打开数据库。ADO Open 方法返回 Connection 对象变量；DAO OpenDatabase 方法返回 Database 对象变量；两者均代表一种特别的数据库，但均没有在 Microsoft Access 窗口中实际打开数据库。

Access XP 帮助