レコードの内容を取り出す

Fieldsプロパティを使用して任意の値を取得する

Sub レコードの値を取り出す2()
'Fieldsプロパティを使用する
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset, FileName As String

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "社員", myCon

'任意のフィールドの値をセルに転記
Cells(1, 1).Value = myRS.Fields("社員ID").Value
Cells(1, 2).Value = myRS.Fields(1)
Cells(1, 3).Value = myRS.Fields("年齢")
Cells(1, 4).Value = myRS.Fields(4)

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

フィールドを指定するインデックス番号は「0」から始まるので注意。