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

[Ecniv]

accApp.quit

Probably.

Timer function I am not sure - you could eat resources and make a loop with a doevents bit in it. Then check whether access is still open and close it...
You could open a small (very small) or hidden form in the access db and put a timer on the form (formtimer is a property) which closes itsself after (say) 5 mins.