Fecho automático por inactividade

Saudações accessianas

Não sei por questões idiomáticas, ou de outro tipo, não consigo encontrar uma resposta VBA para o meu problema neste honroso forum.
Gostaria de saber se é possível através de código, mandar fechar um banco de dados por inactividade. Ou seja sempre e quando num determinado tempo existir um inactividade de entradas e/ou saídas de informação encerrar o banco automaticamente.

Muito obrigado

Private Sub Form_Timer()
Static LinHor As Integer
Static LinMin As Integer
Static LinSeg As Integer
If Trim(Tempo_Ocioso.Caption) = "00:00:00" Then
Aviso.Caption = "Tempo total de espera para efetuar o login no Sistema: 2 minutos"
LinHor = 0
LinMin = 0
LinSeg = 0
End If
LinSeg = LinSeg + 1
If LinSeg = 60 Then
LinSeg = 0
LinMin = LinMin + 1
If LinMin = 60 Then
LinMin = 0
LinHor = LinHor + 1
If LinHor = 24 Then
LinHor = 0
End If
End If
End If
Tempo_Ocioso.Caption = Format(LinHor, "00") & ":" & _
Format(LinMin, "00") & ":" & _
Format(LinSeg, "00")
If Tempo_Ocioso.Caption = "00:00:30" Then
Aviso.Caption = "Por favor, digite o seu nome de usuário e a senha..."
End If
If Tempo_Ocioso.Caption = "00:00:50" Then
Aviso.Caption = "O sistema está aguardando as informações de usuário e senha..."
End If
If Tempo_Ocioso.Caption = "00:01:20" Then
Aviso.Caption = "Atenção! O sistema será encerrado nos próximos segundos..."
End If
If Tempo_Ocioso.Caption = "00:02:00" Then
'DoCmd.Close "Login"
DoCmd.Quit acQuitSaveAll
End If

End Sub

Desde já o meu obrigado, NADIRONUNES
No entanto devido à muita ignorância, não entendo o código:
1. Onde colocar?
2. Tempo.Ociso?
Quando puder ajudar ficaria muito grato.

sao dois rotulos

tempo_ocioso e o que ta com : 00:00:00

Aviso.Caption e o que ta com o nome aviso

conforme imagem

o arquivo nao foi

Muito obrigado - Considere-se Reolvido
Aquele Abraço