Como ocultar página em formulário de navegação?

Boa noite prezados mestres
por favor venho solicitar o vosso auxilio, tenho um formulario de navegação com algumas paginas,
gostaria de ocultar as paginas de acordo ao nivel de acesso do usuario.
Fiz o codigo, mais ao executar da erro, deixo abeixo o códico:

Private Sub BtnEntrarUsuario_Click()
Dim UserLevel As Integer

If IsNull(Me.TxtUsuarioLogin) Then
MsgBox "Por favor informe o usuario", vbInformation, "Usuario obrigatorio"
Me.TxtUsuarioLogin.SetFocus
ElseIf IsNull(Me.TxtSenhaUsuario) Then
MsgBox "Por favor informe a senha", vbInformation, "Senha obrigatoria"
Me.TxtSenhaUsuario.SetFocus
Else
If (IsNull(DLookup("UsuarioLogin", "Usuarios", "UsuarioLogin ='" & Me.TxtUsuarioLogin.Value & "'"))) Or _
(IsNull(DLookup("UsuarioPalavraPasse", "Usuarios", "UsuarioPalavraPasse ='" & Me.TxtSenhaUsuario.Value & "'"))) Then
MsgBox "Verifique o usuario ou a senha"
Else
UserLevel = DLookup("CodigoPerfilUsuario", "Usuarios", "UsuarioLogin = '" & Me.TxtUsuarioLogin.Value & "'")
DoCmd.Close
If UserLevel = 1 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.OpenForm "FormPrincipal", acNormal
Forms![FormPrincipal]!PaginaAdministrador.Visible = False

End If
End If
End If
End Sub

Agradeço
e um feliz ano novo a todos do forum

Feliz Ano Novo Daniel!

Poderia adequar o título do seu tópico para atender a Regra 12 de nosso Fórum?

Regras do Fórum:
1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks") excepto DropBox, Google Drive ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Bom dia Marcelo
muito obrigado e peço desculpa com as maiusculas no titulo da mensagem, não sabia das regras, fiquei a saber agora,
escrevi em maiuscula o titulo com a intenção de destacar ou diferenciar.

nas proximas vou corrigir, ou da para editar a publicação?

obrigado

Dá para editar. Quando for responder uma mensagem, na parte inferir o título é exibido. Poderá então editá-lo.
Dessa vez eu faço para você

Muito obrigado Marcelo
agradeço pelo att e por editares o titulo.

mc