VB2008 SQL ServerのDB名一覧取得

質問

VB2008 で開発をしています。
SQL ServerからDB名の一覧を取得する処理で、うまく行かず悩んでいます。
ロジックは以下の通りです。

Dim cnString As String
Dim Scn As ADODB.Connection
Dim Srs As ADODB.Recordset

Scn = CreateObject("ADODB.Connection")

cnString = "Driver={SQL Server};"
cnString = cnString & "Server=" & strServerNM & ";"
cnString = cnString & "UID=" & strServerUID & "; Pwd=" & strServerPassWD & ";"

Scn.Open(cnString)

Srs = Scn.Execute("SELECT NAME FROM sysdatabases　ORDER BY NAME ;")

If Srs.RecordCount = 0 Then
　　MsgBox("データベースが存在しません。")
Else
　　Do Until Srs.EOF = True
　　　　MsgBox(Srs.Fields("Name").ToString)
　　　　Srs.MoveNext()
　　Loop
End If

　　実行すると、DB名ではなく、"System._ComObject"という文字が複数回（おそらくDBの数）表示されます。

　　どなたかおわかりになる方、おられましたらよろしくお願い致します。

回答No.1

jamshid6 · ベストアンサー

もう解決してるかもしれませんが。。
Fields("Name")が返すのは値ではなく、Fieldオブジェクトだから、当然そうなります。ToStringではなく、Valueです。

それにしても、これは限りなくレガシーVBなソースですね。

お礼

回答ありがとうございます。
ご指摘の通りに修正してできました。
以前、VB6で開発したものを、VB2008に焼き直してるんですが、
VB.NET初心者なので気づきませんでした。
助かりました。