你的思想是对的,程序错了,自己再好好看看

解决方案 »

  1.   

    错误在哪?能给我指点迷津吗?
      

  2.   

    Dim wsTemp As Workspace
      Dim NewUser As User
      Dim NewGrp As Group
        
      `Add a new user to the system database
      DBEngine.SystemDB = "C:\Windows\System\System.mdw"
      Set wsTemp = DBEngine.Workspaces(0)
      Set NewUser = wsTemp.CreateUser("BSILER", "12345", "PASSWORD")
     
      `Add the user to the "Users" group
      wsTemp.Groups("Users").Users.Append NewUser