Closing Access

[mlopes1]

I am trying to close the current access database at the end of some code that is run off of a control button. I found some help on the "CloseCurrentDatabase" method but am having a hard time implementing it.

Here is what I have as given in the help screen:

Dim appAccess as Access.Application

Set appAccess = CreateObject("Access.application.8")

appAccess.CloseCurrentDatabase


This produces the error that says the named database is not open. As always, its probably something stupid I am overlooking but any help will be much appreciated.

Thank you.

 

[Rich]

DoCmd.Quit