主题：求助，如何获取数据库名称

Dim dt As DataTable

Dim cmd As New SQLCommand
cmd.CommandText = "select * from sysdatabases"
dt = cmd.ExecuteReader()

For Each r As DataRow In dt.datarows
output.show(r("name"))
Next

帮我看一下，这个代码有什么问题？