ник: FORMAT
Во-первых код нихренаськи не читаем.
Во-вторых - а где текст процедур
CloseDataBase() и OpenDataBase() ?
А в-третьих Первая процедура скорее всего разрывает текущее соединение с базой данных
а вторая открывает его и чего-то в базу записывает. Скорее всего все созданное выше.
И потом не-понятно зачем таким гемором создавать таблицы. Это аналогично тому как через create table создавать таблицы в аксе. Часто пользовался этим оператором?