如何打开有工作组的数据库?

好学

在本站找到一个打开别的数据库的窗体方式,但如果数据库是有工作组的应该如何打开?  
    Dim db1_path As String
    db1_path = CurrentProject.Path & "\db1.MDB"
    Dim new_db
    Set new_db = CreateObject("access.application")
    new_db.OpenCurrentDatabase db1_path
    new_db.UserControl = True
    new_db.DoCmd.OpenForm "窗体1"

好学

没有人能回答这个问题吗?

wwwwa

示例：
Dim db As DAO.Database
Dim df As New Access.Application
Dim wks As DAO.Workspace, FF1 As DBEngine, wrk As Workspace, dbs As Database

Set FF1 = New DBEngine
FF1.SystemDB = "d:\temp\sjch\sjch.mdw"
FF1.DefaultPassword = "lwgzsylw"
FF1.DefaultUser = "ylw"
Set wrk = FF1.Workspaces(0)
Set dbs = wrk.OpenDatabase("d:\temp\sjch\sjch.mdb", , False)

wwwwa

建议用ADO连接有用户组的MDB

好学

wwwwa不能打开啊

wwwwa

上传你的MDB、MDW，我来试试

pengkuo

有难度的应用哦！！不错