VB6でやっとる時は、標準モジュールでConnection管理(クラスちゃうな)作って、カウンタ付けて解法漏れチェックしとったな。