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

対応するプロパティに値を設定して開く

Sub レコード取得2()
'対応するプロパティに値を設定して開く
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

With myRS
.Source = "社員"
.ActiveConnection = myCon
.CursorType = adOpenDynamic
.LockType = adLockPessimistic '「社員」テーブルの内容を変更できる状態で開く
.Open
End With

Range("A1").CopyFromRecordset myRS

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

End Sub