テーブルへの接続とレコードの取得

Open メソッドの引数を指定して実行する

Sub レコード取得1()
'Open メソッドの引数を指定して実行する
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, adOpenDynamic, adLockPessimistic

Range("A1").CopyFromRecordset myRS

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

End Sub