mdb如何加密码谢谢

Question

我用VB自己带的数据库做了一个数据库名叫“GNXU”,我想用Access或vb自己的数据库等直接打开时,要要求输入密码应如何设这个密码呢？另外我用以下语句打开数据库：
Ssql = "select  * from pass where Sname='" & Susername & "'"
Smdbpath = App.Path & "\gnxu.mdb"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Smdbpath
rs.CursorLocation = adUseServer
rs.Open Ssql, cnn, adOpenStatic, adLockOptimistic
……
……
……
cnn.close
如设了密码应改成怎么样的语句？谢谢!

Answer 1

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Smdbpath & ";Uid=abc;Pwd=123;"

Answer 2

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Smdbpath & ";Persist Security Info=True;JET OLEDB:Database Password=123"