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