如何用CreateObject打开有用户组权限的MDE

Eiffel

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

大家有办法吗？

access2sql

用 CREATEOBJECT 打开数据库？
不会出现启动画面，但是会打开一个新的 ACCESS 窗口，然后在里面启动并显示一个数据库对吗？

tmtony

试试这个
Dim dbeTemp As DAO.DBEngine
Dim wsTemp As DAO.Workspace
Dim dbTemp As DAO.Database
Dim rstTemp As DAO.Recordset
Set dbeTemp = CreateObject("DAO.DBEngine")
dbeTemp.systemdb = "c:\windows\system.mdw"
dbeTemp.DefaultUser = "Admin"
dbeTemp.DefaultPassword = ""
Set wsTemp = dbeTemp.workspaces(0)
Set dbTemp = wsTemp.OpenDatabase("c:\tmtony.mdb")
Set rstTemp = dbTemp.OpenRecordset("tblEpdEmployee")

Eiffel

我实际上是想打开我数据库里的窗体；并把控制权交给我的MDE程序!
可能我没有说清楚。
站长的代码好像只能读取数据；并不能打开一新的Access实例；并运行里面的窗体！

Eiffel

大家对这个不感兴趣吗？
又能解决或不能解决的，交流交流阿！

Eiffel

真的没办法吗？