'Create a user
Public Function CreateUserAccount(strUserName As String, _
        strPID As String, strPassword As String)
    Dim wrk As DAO.Workspace
    Dim usr As DAO.User

    Set wrk = DBEngine(0)
    On Error GoTo CreateUserAccountErr

    'Create the new user
    Set usr = wrk.CreateUser(strUserName, strPID, strPassword)
    wrk.Users.Append usr

CreateUserAccountErr:
    Set usr = Nothing
    Set wrk = Nothing
End Function