Tcl DataBase Object