Closes the database that is open.
'Closes a company and disconnects from the server or closes the database
logWr "CloseCompany: OK"
If .Text1(cf.ServerName) <> "" Then
logWr "Disconnected from Server"
logWr "Database Closed"
Closes the database that was opened with OpenDatabase.
CloseDatabase will raise an exception if there are any open tables or allocated records when the function is called. See also ReleaseAllObjects.