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

データリンクファイルを利用して接続

Sub ADO接続3()
Dim myCon As ADODB.Connection

Set myCon = New ADODB.Connection

'データリンクファイルを利用して接続
myCon.Open "File Name=" & ThisWorkbook.Path & "\mdb\2-DataLink.udl;"

MsgBox "接続完了！"

'接続を解除し、オブジェクトをクリア
myCon.Close: Set myCon = Nothing

End Sub

データリンクファイルと設定画面