关于VB中如何打开加密的ACCESS数据库

[opopop321]

VB中如何打开加密的ACCESS数据库，如果设置密码以后，在VB中打开时报错，如何解决，请指教，在线等待，谢谢！

[qiqif]

strconnect = ";datase=" & App.Path & "\tele.mdb;PWD=qiqikknd"
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", False, False, strconnect)

[Xait9525]

dim rw as workspace
dim rs as datebase

Set Rw = CreateWorkspace("", "admin", "")
Set Rs = Rw.OpenDatabase(App.Path + "\main.mdb", False, False, ";pwd=123")

[长江支流]

function GetConn(用户密码变量 as string,用户ID变量 as string,数据库路径变量 as string,数据库密码变量 as string) as ADODB.Connection
dim Conn as New ADODB.Connection
dim strConn as string

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Password=" & 用户密码变量 & ";User ID=" & 用户ID变量 & ";Data Source=" & 数据库路径变量 & ";Jet OLEDB:Database Password=" & 数据库密码变量
'打开数据库
Conn.Open strConn
set GetConn=Conn
end function

[icnetcn]

With DBConnect
.Provider = "Microsoft.Jet.OLEDB.4.0"
'数据提供者类型，4.0 是access 2k,3.51 是access 97
.Properties("Data Source").value = App.Path & "\data.mdb"
'数据源,app.path是当前程序所在路径.
.Properties("Persist Security Info").value = True '关键是这个.
'是否有密码
.Properties("Jet OLEDB:Database Password").value = "hello"
'密码
.CommandTimeout = 30
'连接超时间
End With



Set Mydb = Myws.OpenDatabase(App.Path + "\dan.mdb", False, False, ";pwd=" & Password)

[qqqdong]

Provider=Microsoft.Jet.OLEDB.4.0;Password=123;User ID=admin;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=True

[岁月无声-我心飞翔]

Provider=Microsoft.Jet.OLEDB.4.0;Password=密码;User ID=admin;Data Source=库名;Persist Security Info=True