Closes the company that is currently 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"
CloseCompany closes the company that was opened by OpenCompany. You must close any tables that are open before calling this function.