VBAでレコードセット開いていたら閉じて無効化する方法

On Error Resume Next
For i = 0 To 10
rs(i).Close
Set rs(i) = Nothing
Next
On Error GoTo 0

これで開いていない場合はエラーとなり、Nothingとなる

開いている場合は、閉じてから無効化する。

On Error Resume Next では、エラーが発生するとエラーの発生した次の行から処理を続行します。

On Error Goto 0 は、エラー処理ルーチンを無効にします。