[Resolvido]Nível de Acesso

Pessoal,

Boa Tarde, venho mais uma vez recorrer a ajudar dos Mestres, estou com problema para excluir um dado do meu formulário. O meu formulário tem nível de acesso, porém, ele só excluir de um nível mesmo o outro no código ele não identifica, como colocar vários níveis neste botão?

Código:

'AO CLICAR NO BOTÃO EXCLUIR
Private Sub btn_excluir_Click()
'ATUALIZAR O GRUPO DE ACESSO E O USUÁRIO
Dim sUsuario, nUsuario As String
Dim sGrupoUsuario As String
sUsuario = Forms!Frm_Cadastro_Prestador!txtUser
nUsuario = Nz(DLookup("[Usuário]", "Tbl_Cadastro_User", "[User Rede]= '" & sUsuario & "'"))
sGrupoUsuario = Nz(DLookup("[Grupo de Acesso]", "Tbl_Cadastro_User", "[User Rede]= '" & sUsuario & "'"))
Me.txt_Grupo_Usuario = sGrupoUsuario
Me.txt_Usuario = nUsuario

'AO ABRIR VERIFICA NÍVEL DE ACESSO
If sGrupoUsuario = "ADMINISTRADOR" Then
ElseIf sGrupoUsuario = "DESENVOLVEDOR" Then

    If MsgBox("Deseja excluir?", vbYesNo + vbQuestion, "Atenção!") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
   
    'QUANDO CLICAR NO BOTÃO HABILITARÁ NOVAMENTE TODOS OS CAMPOS
    Me.txt_tdoc.Enabled = False
    Me.txt_n_doc.Enabled = False
    Me.txt_nome.Enabled = False
    Me.txt_cargo.Enabled = False
    Me.txt_cnpj.Enabled = False
    Me.txt_empresa.Enabled = False
    Me.txt_N_doc_cons.Enabled = True
    Me.txt_prestador_cons.Enabled = True
    Me.list_consulta_prestador.Enabled = True
   
    'ALTERA COR DO CAMPO
    Me.txt_cargo.BackColor = RGB(236, 236, 236)
   
    'DESABILITARÁ O BOTÃO FECHAR
    Me.btn_inserir_foto.Enabled = False
    Me.btn_excluir_foto.Enabled = False
    Me.btn_cad_cargo.Enabled = False
    Me.btn_cad_cnpj.Enabled = False
    Me.btn_buscar_cnpj.Enabled = False
    Me.btn_novo_Prestador.Enabled = True
    Me.btn_alterar.Enabled = False
    Me.btn_salvar.Enabled = False
    Me.btn_excluir.Enabled = False
    Me.btn_fechar.Enabled = True
   
    MsgBox "Exclusão feita com sucesso!"
    Me.list_consulta_prestador.Requery
   
    'MOVER CURSOR PARA O CAMPO
    DoCmd.GoToControl "txt_tdoc"
   
    Else
   
    'QUANDO CLICAR NO BOTÃO HABILITARÁ NOVAMENTE TODOS OS CAMPOS
    Me.txt_tdoc.Enabled = False
    Me.txt_n_doc.Enabled = False
    Me.txt_nome.Enabled = False
    Me.txt_cargo.Enabled = False
    Me.txt_cnpj.Enabled = False
    Me.txt_empresa.Enabled = False
    Me.txt_N_doc_cons.Enabled = True
    Me.txt_prestador_cons.Enabled = True
    Me.list_consulta_prestador.Enabled = True
   
    'ALTERA COR DO CAMPO
    Me.txt_cargo.BackColor = RGB(255, 255, 255)
   
    'DESABILITARÁ O BOTÃO FECHAR
    Me.btn_inserir_foto.Enabled = False
    Me.btn_excluir_foto.Enabled = False
    Me.btn_cad_cargo.Enabled = False
    Me.btn_cad_cnpj.Enabled = False
    Me.btn_buscar_cnpj.Enabled = False
    Me.btn_novo_Prestador.Enabled = True
    Me.btn_alterar.Enabled = False
    Me.btn_salvar.Enabled = False
    Me.btn_excluir.Enabled = False
    Me.btn_fechar.Enabled = True
    End If
   
Else
    MsgBox "ACESSO NEGADO" & vbNewLine & _
        "" & vbNewLine & _
        "Você não possui autorização para excluir o Prestador" & vbNewLine & _
        "" & vbNewLine & _
        "Por favor, entre em contato com SESMT", _
          vbExclamation, "Acesso Negado"

End If
End Sub

Seria bom colocar em anexo o exemplo para melhor avaliação e o que realmente deseja. Pelo que entendi, apenas os usuario Administrador e o grupo desenvolvedor pode excluir os arquivos. se for isto, crie duas variaveis temporarias para gravar os valores do usuario logado e o grupo e depois compare com o usuario admin e o grupo desenvolvedor.

Deu Certo.
Muito Obrigado