Need "Quit" and "Timer" commands, for Automatiing Access, from Excel..

[SQLADOman]

I need to Automate Access, from Excel and have Access automaticly quit, if it's left open, for more than two minutes.
I'm somewhat familiar with automating word, from Excel, or Excel, from VB, but have never Automated Access.

Dim AccApp As Access.Application
Set AccApp  = New Access.Application
AccApp .OpenCurrentDatabase strPath
AccApp.Run strMyprocedure
'some sort of timer, for pausing(accuracy, isn't important)
'close & quit(need command's for closing with, & without, saving)

Thanks in advance