[Resolvido]3 tentativas de login

Boa noite amigos.
Preciso de um exemplo de contador de tentativas no login, tres vezes a senha errada fecha o bd.
Como posso introduzir nesse codigo do botao login

Private Sub BotaoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "FPrincipal"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
End If
End If
End Sub

Desde ja agradeço

Bom dia

Teste

Senha 123456

Tópico movido para a sala adequada. O "Repositório de exemplos", como o próprio nome diz, se destina à postagem de exemplos mdb/accdb.

Assis bom dia.
Obrigado pela cooperação mais to tendo problemas para implantar o codigo.
O exemplo que tenho baixei aqui no forum mesmo, é o exemplo de login simples onde contem um modulo com o seguinte codigo.

Option Compare Database
Option Explicit

Private strUsuarioAtual As String

Function verificaLogin(argLogin As String, argSenha As String) As Boolean

Dim criterio As String

criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"

If Nz(DCount("login", "Usuario", criterio), 0) > 0 Then
verificaLogin = True
setUsuarioAtual argLogin
Else
verificaLogin = False
End If

End Function

Sub setUsuarioAtual(argUsuario As String)
strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
getUsuarioAtual = strUsuarioAtual
End Function

E no botão de login ao clicar

Private Sub BotaoLogin_Click()
If Not IsNull(CaixaLogin) And Not IsNull(CaixaSenha) Then
If verificaLogin(CaixaLogin, CaixaSenha) Then
DoCmd.Close
DoCmd.OpenForm "FPrincipal"
Else
MsgBox "Senha inválida!", vbExclamation, "Login"

End If
End If
End Sub

Agradeço a colaboração

criquio
Me desculpe, como sou novo no forum acabei postando sem perceber

É no seguinte exemplo que gostaria de colocar um contador de tentativas

Teste

Assis,
Muito obrigado é exatamente o que estava precisando.

Um abraço

Fernando
Obrigado pelo retorno