Senha do Login no Access

[Hortencio]

Alo a todos

Criei um banco de dados com varios formularios e criei tambem uma tela de login com senha. testei deu certo.

Acontece que quando fechei a janela do access e tornei a abrir a tela já não funciona e não da nenhuma mensagem de erro.

A que se deve?

o codigo que pus é o seguinte:

Option Compare Database

Private Sub Comando4_Click()

usuario.SetFocus

If usuario = "hortencio" And Senha = "horte2011" Then

MsgBox "acesso concedido", vbInformation, "login"

DoCmd.Close

DoCmd.OpenForm "Formulario1"

Else

MsgBox "acesso negado", vbCritical, "Erro"

End If

End Sub

[Humm]

oi amigo, esse teu sistema de login ta muito rustico..

eu postei aqui nesse forum um exemplo em accdb de um sistema de login onde você cadastra usuarios, etc e tal.. e inclusive com exemplo de como criar regras para cada nivel de usuario ao abrir os forms.