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

●概要●
レコードセットのフィールド名を取得するには、ADODB.FieldオブジェクトのNameプロパティを利用します。

　構文 オブジェクト.Name
　設定項目　　　　内容
　オブジェクト　　ADODB.Fieldオブジェクト

次のサンプルは、ADOを利用して、Accessデータベースにあるテーブルのフィールド名を取得します。なお、このサンプルを実行するには、「Microsoft ActiveX Data Objects x.x Library（x.xはバージョンによって異なります）」に参照設定する必要があります。

Sub Sample()
    Dim AdoConnection As ADODB.Connection
    Dim TableName As String
    Dim TempField As ADODB.Field
    
    TableName = "T_Master"
    
    Set AdoConnection = New ADODB.Connection
    AdoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source=" & ThisWorkbook.Path _
                        & Application.PathSeparator & "SampleDB.mdb"
                        
    With AdoConnection
        With New ADODB.Recordset
            .Open TableName, AdoConnection
            For Each TempField In .Fields
                Debug.Print TempField.Name
            Next
            .Close
        End With
        .Close
    End With
    
    Set AdoConnection = Nothing
    
End Sub