Currently, this is what I have setup:
Dim UserLevel As String
UserLevel = Nz(DLookup("[Role]", "[Employee List]", "[Employee Name]='" & [TempVars]![CurrentUserID] & "'"), 0)
If UserLevel = "Admin" Then
Me.AdminEdit.Visible = True
Else
Me.AdminEdit.Visible = False
End If
Edit...