紧急求救~!!怎么用VB连接设置了密码的ACCESS97数据库??!

Question

Global YY_Db As New ConnectionYY_Db.Open "Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=" + FarPath + "\dbf\db1.MDB ;" & _
 "Jet OLEDB:Database Password = 1234"

Answer 1

我用的是dao3.51
Set WRKUser = CreateWorkspace("", "admin", "", dbUseJet)　 ' add jin 001226 
　　　　strDBName = App.Path & "\Constant.mdb" 
　　　　Set dbSave = WRKUser.OpenDatabase(App.Path & "\Constant.mdb", False, False, ";pwd=" & DBPASSWORD) 

Answer 2

Set db= OpenDatabase(App.Path & "\user.mdb",False, False, ";pwd=" & DBPASSWORD)