CloseDB
Dim IsOk IsOK = CloseDB()
If IsOK Then MsgBox "The opening catalog database has been closed!"
OpenDB Function
CreateDB Function