Excel(VBA/ADO)でOracle検索

Excel(VBA/ADO)でOracleのデータを検索して表示したい、とかいう依頼が来たので、ちょいちょいと作ってみた。結構忘れてることが多かったので、メモを残す。
基本的には接続→SQL実行→フェッチ→クローズ。サンプルはユーザーが使えるテーブルの一覧をイミディエイトウィンドウへ表示するだけだが、基本はこれでOK。と思いたい。なお、イタリック部分は環境により変更しなくてはならないところ。

１．接続
　　' 接続先情報
　　Const strDatabase = "sid" 'sid
　　Const strUserID = "user" ' user
　　Const strPassword = "pass" ' pass
　　'接続オブジェクトの作成
　　Set cn = CreateObject("ADODB.Connection")
　　'接続
　　cn.Open "Provider=MSDAORA;" & "Data Source=" & strDatabase & ";", strUserID, strPassword

２．SQL実行
　　' SQL
　　strSQL = "select table_name from user_tables"
　　' SQLの実行
　　Set rs = cn.Execute(strSQL)

３．フェッチ　　Do Until rs.EOF
　　Debug.Print rs.fields(0)
　　　　rs.MoveNext
　　Loop

４．クローズ
　　rs.Close
　　Set rs = Nothing
　　cn.Close
　　Set cn = Nothing