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

ConnectionString プロパティを使用して接続

Sub ADO接続2()
Dim myCon As ADODB.Connection, FileName As String, conStr As String

Set myCon = New ADODB.Connection

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

'接続文字列
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

'ConnectionString プロパティを使用して接続
With myCon
  .ConnectionString = conStr
  .Open
End With

MsgBox "接続完了！"

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

End Sub