Ændre sikkerhed på en form

Jeg prøver at finde ud af hvordan jeg kan lettest give adgang til en form til nogle brugere og andre skal ikke kunne få adgang eller se formen

Jeg fandt koden fornede, hvor dette nok er mest interessant og i min kode er det en linje.

Hvordan kan jeg få den til at virke ?
_____________
    cat.Users("PowerUser2").SetPermissions "Participant_Management", adPermbjroviderSpecific, adAccessDeny, adRightNone, "{c49c842e-9dcb-11d1-9f0a-00c04fc2c2e0}"
_______________

Sub Set_UserObjectPermissions()
    Dim conn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim strDB As String
    Dim strSysDB As String
   
    On Error GoTo ErrorHandler

    strDB = "K:\In Progress\GBDB.mdb"
    strSysDB = "K:\In Progress\Security.mdw"

    ' Open connection to the database using
    ' the specified system database
    Set conn = New ADODB.Connection

        With conn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Jet OLEDB:System Database") = strSysDB
            .Properties("User ID") = "dev"
            .Properties("Password") = "1"
            .Open strDB
        End With

    ' Open the catalog
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = conn
    ' add a user account
    cat.Users.Append "PowerUser2", "star"

    cat.Users("PowerUser2").SetPermissions "Participant_Management", adPermbjroviderSpecific, adAccessDeny, adRightNone, "{c49c842e-9dcb-11d1-9f0a-00c04fc2c2e0}"
   
ExitHere:
    Set cat = Nothing
    conn.Close
    Set conn = Nothing
    Exit Sub
ErrorHandler:
    If Err.Number = -2147467259 Then
        MsgBox "PowerUser user already exists."
        Resume Next
    Else
        MsgBox Err.Description
        Resume ExitHere
    End If
End Sub