求助 关于vb 连接 access的问题。

Question

我现在的代码是Dim i As IntegerDim NewDynDim OpenWs As WorkspaceDim OpenDB As DatabaseSet OpenWs = DBEngine.Workspaces(0)Set OpenDB = OpenWs.OpenDatabase(App.Path & "\hotel2.mdb")以上代码连接数据库正常，没有任何问题。
我现在请教大家如果我把access数据设置了密码 密码为1234 那么 我上面的代码应该怎么改呢？
我已经在网上搜索过了 也试着改了几次 但都不行
所以来求助
大家帮帮忙吧！

Answer 1

Set OpenDB = OpenWs.OpenDatabase(App.Path & "\hotel2.mdb",,,"1234") 
几个","我忘了,自己试试吧,我这里没装VB

Answer 2

改用ADO吧：
dim conn as new adodb.connection
With conn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\hotel2.mdb;Jet OLEDB:Database Password=1234"
    .Open
    .CommandTimeout = 300
End With

Answer 3

  Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim rs As DAO.Recordset
    Set db = OpenDatabase("e:\system.mdb", False, False, ";pwd=123")
    Set tbl = db.TableDefs("专业")
    Set rs = tbl.OpenRecordset()
注：OpenDatabase函数中间两个参数，头一个是独占标志，第二个是只读标志。本例中，数据库以共享、可读写方式打开。