VBでOracleに接続するには？

解決

---

こんにちは、分からないことが発生してしまいました。
現在VBのコマンドボタンを押すことでoo4oでOracleへ接続する、というものを作っています。
参考書などを使って調べながら作ってみたところ
Private Sub cmd1_Click()

    Dim ssOra As Object
    Dim dbOra
    
    Set ssOra = CreateObject("OracleInProcServer.XOraSession")
    
    Set dbOra = ssOra.OpenDatabase("サービス名", "user/pass", 0&)  

 End Sub

のようになり、実際に実行したところエラーは出ないのですが何も変化が見られず
、接続できたのかが判断できません。
このような場合どのようにすれば接続されたのかが分かるようになるのでしょうか？
また表記の仕方で間違っていたら指摘していただけると助かります。

編集 削除

---

[参考]
http://homepage2.nifty.com/inform/vbdb/

>このような場合どのようにすれば接続されたのかが分かるようになるのでしょうか？
実際にクエリを発行してテーブルからデータを取ってくれば？

編集 削除

---

特攻隊長まるるうさんありがとうございます。

データ取得してみたら接続できてたみたいです（嬉

参考HPもとても分かりやすく書いてあったのでとても感謝です。
ありがとうございましたーm(__)m

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。