レジストリの値を使ってインストール先を取得するには？ (ID:87628)

名前

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

本文 レジストリを使って、バージョンごとのMS-Accessのインストール先を取得したいのですが、Googleで検索した所、 ------------------------------------------------------------ Dim db As Database Set db = workspaces(0).opendatabase("c:\xxx\yyy.mdb") Select Case dbs.Version Case "3.0" HKEY_CLASSES_ROOT\Access.Application.7\shell\Open\command から、パス取得 Case "3.5" HKEY_CLASSES_ROOT\Access.Application.8\shell\Open\command から、パス取得 Case "4.0" HKEY_CLASSES_ROOT\Access.Application.9\shell\Open\command から、パス取得 End Select ------------------------------------------------------------ と書かれていました。そこでコードに書いて、実行してみるとset dbのところでエラーが発生してしまい、よく分からなくなってしまいました。 どなたか分かる方はご教授お願いします。