Add the line
Application.Quit
to the end of the sub procedure.
Else last resort this VBScript should work.
---------------------------
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from
Win32_Process Where Name = 'msaccess.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
---------------------------
Watch for line wrap.
--
Regards,
Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect
|A bat file runs an Access 97 macro which in turn prints
| off some reports. The macro finishes but doesn't close
| Access.