Botão de login abrindo formulários diferentes

amigos estou com o seguinte problema:
estou usando um exemplo de login e senha feito pelo Plinio Mabesi
e na tela de login ao clicar no botão login tenho o seguinte código logo a baixo,
o que eu queria era que quando eu logar como administrador abrisse um formulário e quando eu logase
como usuario abrisse outro formulário. tem como fazer essa adaptação ?

Private Sub btnLogin_Click()

Dim strSenha As String

If IsNull(cbxLogin) Then
MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
cbxLogin.SetFocus
ElseIf IsNull(txtSenha) Then
MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
txtSenha.SetFocus
Else

'Realizando a limpeza da senha
strSenha = limparSenha(txtSenha)

If verificaLogin(cbxLogin, strSenha) Then
DoCmd.Close
DoCmd.OpenForm "frmEconomato"
Else
MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
txtSenha.SetFocus
End If

End If

End Sub

Boa tarde,

Existem aqui no forum exemplos com o que deseja...
Faça uma pesquisa por "Login Permissões "


Abraço...

veja se isso serve ???

http://maximoaccess.forumeiros.com/t15967-resolvidologin-por-niveis-de-funcionarios?highlight=login

ok amigo vou pesquisar mais um pouco !
obrigado pela atenção!!!!

Ola, se o exemplo que postou esta a funcionar, não vejo razão para mudar
Veja se serve

Código:

Private Sub btnLogin_Click()

 Dim strSenha As String

 If IsNull(cbxLogin) Then
 MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
 cbxLogin.SetFocus
 ElseIf IsNull(txtSenha) Then
 MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
 txtSenha.SetFocus
 Else

 'Realizando a limpeza da senha
 strSenha = limparSenha(txtSenha)

 If verificaLogin(cbxLogin, strSenha) Then
    If cbxLogin="administrador" then 'deve colocar o username do adninistrador
       DoCmd.Close    
       DoCmd.OpenForm "frmPretendido"  'nome formulario para o administrador
    Else
       DoCmd.Close      
       DoCmd.OpenForm "frmEconomato"
    Endif
 Else
 MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
 txtSenha.SetFocus
 End If

 End If

End Sub


Não testado
Abraço