Connectionオブジェクトを使って接続 Sub ADO接続1() Dim myCon As ADODB.Connection, FileName As String 'New キーワードを使用して新規Connectionオブジェクトを生成 Set myCon = New ADODB.Connection '接続先のデータベース FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb" '接続 myCon.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName MsgBox "接続完了!" '接続を解除し、オブジェクトをクリア myCon.Close: Set myCon = Nothing End Sub ◆構文