Public Sub runOther(strDBPath As String)
Dim acApp As Access.Application
Set acApp = New Access.Application
acApp.OpenCurrentDatabase (conDBPath)
acApp.DoCmd.OpenQuery "Query1", acViewNormal
[COLOR=green]'Cleanup[/color]
acApp.Quit
Set acApp = Nothing
End Sub