Alguien sabrá la forma de agregar a un usuario (system.mdw) por código VB
o la macro que haga ésto?

ENRIQUE MARTINEZ
================

Si estas utilizando la biblioteca de datos DAO, el siguiente ejemplo crea un
nuevo usuario y lo añade al grupo "Users". Si el código lo vas a ejecutar
desde el entorno de Access, el espacio de trabajo predeterminado conoce la
ruta del archivo de información de grupo de trabajo (system.mdw), por lo que
no hay que establecer la propiedad «SystemDB» del objeto «DBEngine». De
utilizar otro espacio de trabajo distinto, debes de establecer dicha
propiedad antes de crear un nuevo objeto «Workspace»:

    Dim wsMain As Workspace
    Dim usr As DAO.User
    Dim grp As DAO.Group

    ' Referencia al espacio de trabajo que estamos
    ' actualmente utilizando
    Set wsMain = DBEngine.Workspaces(0)

    ' Crea un usuario nuevo.
    With wsMain
        Set usr = .CreateUser("NombreUsuario")
        usr.PID = "PID_Usuario"
        usr.Password = "Contraseña"
        .Users.Append usr
    End With

     ' Lo agregamos al grupo 'Users'. Si lo quieres agregar
     ' a otro grupo, solamente tienes que cambiar el
     ' nombre
    With usr
        Set grp = .CreateGroup("Users")
        .Groups.Append grp
    End With

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)