> Dim objSess As Object> Dim objDb As Object> Dim objDs As Object> Dim objCol As Object上記をグローバル変数で宣言したら。