Option Explicit
Dim objADO
' ADO オブジェクトを作成
Set objADO = CreateObject("ADODB.Connection")
' ADO を使い Oracle データベースを開きます
' $ConnectionString$ : 接続文字列
' $UserName$ : ユーザー名
' $Password$ : パスワード
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=$ConnectionString$; UID=$UserName$; PWD=$Password$;"
' ADO をクローズします
objADO.Close
Set objADO = Nothing
msgbox "接続正常終了"
]]>
