件名の通り実装が出来ずに困っております。

下記にようにコーディングしているのですが、肝心の『COUNT』数はどのように取得すればよろしいのでしょうか？

'■変数宣言
Dim conhdb As ADODB.Connection 'コネクションオブジェクト
Dim rsthdb As ADODB.Recordset  'レコードセットオブジェクト

'■オブジェクト生成
Set conhdb = New ADODB.Connection 'コネクションオブジェクトの作成
Set rsthdb = New ADODB.Recordset  'レコードセットオブジェクトの作成
On Error GoTo LB1  

conhdb = "Provider=" & sSQLProvider & "; " & sSQL_ConnectionID & "; " & _
                "Data Source=" & sServerName & ";DATABASE = 'master'"
conhdb.Open
On Error GoTo LB2

rsthdb.Open "SELECT COUNT(*) FROM sysdatabases WHERE name='master'", conhdb, , , adCmdText
----

最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、その方法が分からないでおります。

ご教授頂ければ幸いです。

> 最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、

If Not rsthdb.EOF Then
  Debug.Print rsthdb.Collect(0)
End If

> > 最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、
>
> If Not rsthdb.EOF Then
>   Debug.Print rsthdb.Collect(0)
> End If

全く知らないやり方でしたので非常にためになりました。

無事に解決致しました。

ありがとうございます。