怎样打开代密码的ACCESS97数据库，总是提示“独占”，代码怎么写

Question

DAO:
Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密码")ADO:
cnn.ConnectionString = "................." & ";Jet OLEDB:Database Password=密码"

Answer 1

With DBConnect
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Properties("Data Source").value = App.Path & "\data.mdb"
     .Properties("Persist Security Info").value = True         '这个
     .Properties("Jet OLEDB:Database Password").value = "pass"
     .CommandTimeout = 30
End With

Answer 2

用ado可以，我想还是多看看msdn吧