如何在访问数据库里加上密码!

[戚爱斌]

我用ACCESS2000做的数据库,并在数据库中加入了密码!想用ADO对象连接!请问怎么实现!!

[sys_wkq]

dim conn as new adodb.connection
dim res as new adodb.recordset
conn.open "connectionstring"
res.open "SQL",conn,游标,方式

[戚爱斌]

密码写在什么位置??我试了好几个位置全都报错!

[fkh21l]

密码在SQL语句里写

[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

[caiyanying732]

dim conn as adodb.connection
set conn=new adodb.connection
conn.open(...,"","pwd=prssword")
.....
conn.close

[oxfordxyc]

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="gz.mdb" & ";Jet OLEDB:Database Password=12345" 好象有点错误

[cnwd]

什么错误？