Buscar Admin

Ola pessoal vim aq para pedir uma ajudinha a vcs.
seguinte tenho um código q uso para poder executar funções como admin porem estou criando outro sistema e nesse tem admin e supervisor eu uso o código abaixo
Dim Y As String
Dim strForm As String
Dim strRet As String
Y = InputBoxDK("Entre com a Senha Para Editar Cadastro!!!.", "Autorização")
If Y = DLookup("Senha", "Funcionários", "Administrador=True Or Supervisor=True") Then esse código aq foi alterado era so admi
Dados.Enabled = True
Cód_Cliente.SetFocus
Else
MsgBox "Você não tem Permissão Para Executar Esta Ação", vbCritical, "Autorização"
'aqui a mensagem de senha incorreta. Pode alterar
End If

Porem esse código so busca por um admin ou um supervisor no caso o primeiro registro porem pode ser que tenho mais de um supervisor ou administrador do sistema como posso fazer pra que ele busque em Toda a tabela lembrando q os campo para defini admin e supervisor são Campos Sim/Não

If Y = DLookup("Senha", "Funcionários", "Administrador=True Or Supervisor=True") Then
Como funciona:
a função Dlookup busca a "Senha" na tabela "Funcionarios" onde o Usuario seja o administrador.
Exemplo: = DLookup("Senha", "Funcionários", "Usuario = 'Administrador'"" ) Then
neste caso, é necessário comparar a senha digitada na inputbox com a senha armazenada na tabela "Usuarios" e que seja igual a senha do usuario "Administrador". Caso isto seja verdade, habilite os campos necessários.