怎样用程序打开一个有密码的数据库？

[windcat]

我用dao连数据库。
开始用
Set phonedb = dbengine.OpenDatabase(App.Path & "\tele.mdb")
打开数据库。
但为了安全，数据库进行了加密。再运行就提示密码无效。
看了帮助
Set wrkJet = CreateWorkspace("NewJetWorkspace", _
"admin", "password", dbUseJet)
Set dbsNorthwind = wrkJet.OpenDatabase("Northwind.mdb")
用了之后提示
不能启动应用程序，工作组信息文件丢失，或被其他用户以独占方式打开
请问该如何解决。

[thinkeasy]

Set phonedb = dbengine.OpenDatabase(App.Path & "\tele.mdb",dbVersion30, False, dbLangChineseSimplified & ";pwd=password")

[qiqif]

Dim strconnect As String
strconnect = ";datase=" & App.Path & "\tele.mdb;" & "pwd=password"
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", True, False, strconnect)

[cnwd]

Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Set cn = New Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="gz.mdb" & ";Jet OLEDB:Database Password=12345"
cn.CursorLocation = adUseClient 'This cursor is on the client machine instead of the server
cn.Open
Set rec = New ADODB.Recordset
rec.Open "select * from ltgz", cn, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rec
DataGrid2.Refresh

[coolsky]

up

[ItSeeker]

Set ws = dbengine.WorkSpaces(0)
Set db = ws.OpenDatabase(App.Path & "\tele.mdb", True, False, ";pwd=password")