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

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

Connection オブジェクト.Open 接続文字列

接続文字列で指定できる設定
設定名	説明
Provider	接続するデータベースに会わせて使用する OLE DBプロバイダ名を指定
Data Source	接続するデータベースを指定
User ID	ユーザー名を指定
Password	バスワードを指定

代表的な OLE DB プロバイダを指定する文字列
Jet4.0 (Access2000以降)	Provider=Microsoft.Jet.OLEDB.4.0
Jet3.51 (Access97)	Provider=Microsoft.Jet.OLEDB.3.51
SQL Server	Provider=SQLOLEDB
Oracle	Provider=MSDAORA
ODBC 経由	Provider=MSDASQL