Close recordsets, Workspaces & Databases

Does anybody know how to check to see if there are any open database connections, workspaces and recordsets in a project.

If there are any is it possible to create a collection loop through it and close them all.

Any suggestions would be appreciated.

Thanks

Syntax

CLOSE
[ALL | ALTERNATE | DATABASES [ALL] | DEBUGGER
| FORMAT | INDEXES | PROCEDURE | TABLES [ALL]]

Arguments

ALL

Closes all open databases, tables, and indexes in all work areas and selects work area 1. CLOSE ALL also closes any files opened with the FCREATE( ) and FOPEN( ) low-level file functions. CLOSE ALL does not close a file opened with SET PRINT.

CLOSE ALL also closes the following:

Form Designer


Project Manager


Label Designer


Report Designer


Query Designer
CLOSE ALL does not close these:

Command window


Debug window


Help


Trace window