質問: Nothing End If End If ```
回答: 元回答の方への通知が大変なことになりそうなので、こちらで続きを書いてきます。 本来、「ADODB.RecordSet#Fields」ってのは取得したデータ行の各項目を取得できるプロパティです。 まずは、「objRs.Fields」をウォッチ式に入れてデバッグしたらどうなるか見てみましょう。 その結果がEmptyであれば、選択結果へのカーソル位置がおかしいのかもしれません。 その場合、上のウォッチ式の前の行に「call objRs.MoveFirst()」を突っ込んでみてからデバッグしてみてください。 ■以下追記 lilithchanさんの回答に対するコメント内ソース見てたら、「objCon.Open」の前に「Set objRs = objCon.Execute」してるじゃないすか。 lilithchanが回答で書かれてる > > 1DBとの接続を確立する > > 2SQLを実行してレコードセットを取得する > > 3レコードセットから該当カラムの値を取得する > > > の部分、ちゃんと守りましょうよ。 Openして、Executeして、値取得ですよ。