スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  expression.Fields.Item(Index).Name        取得のみ

設定項目        内容
expression      Recordsetオブジェクトを指定［省略不可］
Index           フィールドのインデックスを指定［省略不可］

Recordsetオブジェクトのフィールド名を参照します。
次のコードは、「商品tbl」テーブルの2番目のフィールド名をNameプロパティを使って取得した結果をメッセージダイアログに表示しています（インデックスは0から数えます）。このサンプルを実行する場合は、フォルダ名やデータベース名をお使いの環境に合わせてください。

●サンプル●
Sub GetFieldNameSample()
    Dim myCN As New ADODB.Connection
    Dim myRS As New ADODB.Recordset
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\AccessVBA\Sample1.mdb"
    myCN.Open
    'レコードセットを開く
    myRS.Open "商品tbl", myCN
    '1番目のフィールド名を表示
    MsgBox myRS.Fields.Item(1).Name
    'レコードセットを閉じる
    myRS.Close
    myCN.Close
End Sub