>>52
レコードセットから列を削除したいのです
やりたいことはこんな感じです

'1.クエリの実行
Set rs = cn.Execute("select A,B,C from foo")

'2.レコードセットから列Bを削除する
rs.Fields.Delete("B")

'3.残った列A,CをA1セル起点に貼り付ける
Range("A1").CopyFromRecordset rs


このとき、Fields.Delete メソッドはレコードセットが開いているとエラーになってしまいます
なので、>>42のように前後にClose、Openで挟んだのですが、Open実行時に削除したはずの列が復活してしまいます