ADOで、SQL Serverへの接続確認

kamakura 2007-08-18 00:49:26 No: 137179

はじめまして。
早速質問です。
Access(2003)のVBAからSQL ServerへADOで接続する際、
フォームから
  ・サーバー名
  ・データベース名
を指定するようにしています。
このとき、データベース名の間違いは処理できるのですが、
サーバー名を間違うと、
On Error Goto Err_ADO  のような処理を入れていても
拾えずに、
  実行時エラー '-2147467259 (80004005)':
  [DBNETLIB][ConnectionOpen (Connect()).]
  SQL Serverが存在しないか、アクセスが拒否されました。
というエラーが出てしまいます。

・接続できるSQLサーバーをリスト化する
（一応一つずつしかないはずなのではありますが）

あるいは

・指定したSQLサーバーにADOで接続できるかどうか
をあらかじめ確認する

という対応を取ろうと思うのですが、
こういう場合のセオリーみたいなものはあるのでしょうか。

ちなみに使われる可能性があるのは
  OS:Windows2000かWindowsXP
  Office：2000,XP,2003
  SQLServer：2000
の組み合わせです。

宜しくお願いします。