用opendatabase打开数据库，密码写哪？(来者有分)

Question

Dim str As String
Dim db As Database
sdbname = App.Path + "\net1.mdb"
Set db = OpenDatabase(sdbname, ,"pwd=a")
Set db = OpenDatabase(sdbname,true ,"pwd=a")
老是报错，不知道为什么？

Answer 1

这是msdn上的列子，也许有用   
Set dbsCurrent = OpenDatabase("DB1.mdb")   
   Set qdfBestSellers = dbsCurrent.CreateQueryDef("")
   With qdfBestSellers
      .Connect = "ODBC;DATABASE=pubs;UID=sa;PWD=;" & _
          "DSN=Publishers"
      .SQL = "SELECT title, title_id FROM titles " & _
         "ORDER BY ytd_sales DESC"
      Set rstTopSeller = .OpenRecordset()
      rstTopSeller.MoveFirst
   End With

Answer 2

Dim cn As Database
  Dim rs As Recordset
Set cn = Workspaces(0).OpenDatabase(App.Path & "\store.mdb", False, False, "MS Access;PWD=***")
  Set rs = cn.OpenRecordset("tablea", dbOpenTable)