ADOを使ってデータベースと接続する

参照設定をしない

Sub レコード取得1()
'参照設定をしない
Dim myCon As Object, myRS As Object, FileName As String

'New キーワードを使用して新規ConnectionオブジェクトとRecordsetオブジェクトを生成
'**参照設定をしないのでCreateObject関数を使用する
Set myCon = CreateObject("ADODB.Connection")
Set myRS = CreateObject("ADODB.Recordset")

'接続先のデータベース
FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"

'接続
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

'接続先から「社員」テーブルの内容を読み込む
myRS.Open "社員", myCon

'A1番地を基点に転記
Range("A1").CopyFromRecordset myRS

'Recordsetオブジェクトへの接続を閉じ、オブジェクトを破棄
myRS.Close: Set myRS = Nothing
'データベースへの接続を切断し、オブジェクトを破棄
myCon.Close: Set myCon = Nothing

End Sub

参照設定を行わないとコード作成時に入力候補が表示されない。