求助：关于DAO的问题

AlexLiu

从我自己的程序中截取的部分代码：

    Dim wspDefault As Workspace, dbsDR As DAO.Database

    Set wspDefault = DBEngine.Workspaces(0)
    Set dbsDR = wspDefault.OpenDatabase(Filepath, True, False, ";pwd=QSedfdf4587")