ＡＤＯで正常にクローズするには？ (ID:81458)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めて質問します。Access2002表現百科850とゆう本を参考にしてADOを使用したソースを書いたのですがレコードセットが「オブジェクトが閉じている場合は、操作は許可されません。」とエラーが表示されます。レコードセットのクローズを削除すればエラーは出ずに処理自体は行われるんですがいまいち意味が理解できず気持ち悪いです。ご存じの方がいましたらご助言いただきたいと思います。ちなみにソースは '接続 Set cn = CurrentProject.Connection 'SQL削除ステートメントを設定 mySQL = "DELETE FROM T_受入申込印字" '選択クエリを実行する rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic For Each varItem In ctl.ItemsSelected strWhere = "(受付番号 = '" & ctl.ItemData(varItem) & "')" 'SQL選択ステートメントを設定 mySQL = "INSERT INTO T_受入申込印字 SELECT * FROM MT_受入申込＿ WHERE " & strWhere & "" '選択クエリを実行する rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic Next DoCmd.OpenReport "R_受入企業住所選択ラベル", acPreview '選択表示 '終了処理 rs.Close: Set rs = Nothing←ここでエラー発生 cn.Close: Set cn = Nothing よろしくお願いします。 ちなみに使用ライブラリーはADO2.1です。