Função If Then

Ola Pessoal mais uma vez estou aq para uma duvida referente a estas função de validade do vba implementei o código do amigo plinio mabesi login seguro que codifica a senha do usuario na tabela muito show o problema foi nas permissões pois o código que usava para valida o usuario atual pegava a senha verdadeira e usava com o login seguro e preciso converte a senha digitada pela criptografada exemplo se vc tem uma função que so o admin pode liberar. no meu caso o produto x so pode 5% de desconto se passar disso pede a senha do admin. Com muito custo consegui adapta o código no exemplo do mestre avelino o Imputbox personalizado ficando assim.

Dim x As String
Dim Produto1
Produto1 = DLookup("[Limite_Desconto]", "Produto", "[Cód_Produto] =" & [Combinação3].[Column](1))
If Desconto > Produto1 Then
x = InputBox2("Entre com a Senha do Administrador.", "SYS VENDAS.", , "password")
argSenha = getMD5(x)
If StrPtr(x) = 0 Then
Cancel = True
Else
If DCount("*", "Usuario", "DESCONTOPRODUTO=-1 AND senha = '" & argSenha & "'") = 0 Then
MsgBox "Senha não confere...", vbInformation, "Aviso"
Cancel = True
End If
End If
End If

Que funcionou muito bem.

Agora vem minha duvida referente a função, se puderem me ajuda
1º validação ele verifica se o usuario atual tem permissão.
If DLookup("[CLIENTENOVO]", "usuario", "[login] = txtUsuarioAtual") Then

2º Pergunta caso o usuario teja a permissão
If MsgBox("Deseja Adicionar Novo Cliente.", vbYesNo, "SYS VENDAS.") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Me.Empresa = [Forms]![FPrincipal]![Cód_Empresa]
Else
Cancel = True
Me.Undo
End If

3º se ele não tiver pede a senha do admin atraves da imputbox.

Se puderem me ajuda n sei como monta essa rotina de validação.

Desde ja agradeço.

Bom dia amigos consegui contornar um pouco porem a pergunta se deseja adicionar novo registro n consegui adicionar se alguem tiver uma ideia e pude me ajudar.

Private Sub BTNOVO_Click()
On Error GoTo Err_BTNOVO_Click

Dim x As String

If DLookup("[CLIENTENOVO]", "Usuario", "[login] = txtUsuarioAtual") Then
DoCmd.GoToRecord , , acNewRec
Else
x = InputBox2("Entre com a Senha do Administrador.", "SYS VENDAS.", , "password")
argSenha = getMD5(x)
If DCount("*", "Usuario", "DESCONTOPRODUTO=-1 AND senha = '" & argSenha & "'") = 0 Then
MsgBox "Senha não confere...", vbInformation, "Aviso"
Cancel = True
Else
DoCmd.GoToRecord , , acNewRec
End If
End If

Exit_BTNOVO_Click:
Exit Sub
Err_BTNOVO_Click:

Resume Exit_BTNOVO_Click

End Sub