Visual Basic - Buscar todas las bases exixtentes en SQL

Hola, Bueno tengo una consulta que hacer, el programa que debo hacer debe buscar todas las bases de datos que estén disponibles en SQL, ya mas o menos se como conectar el rpgrama a una base de datos en particular, mediante:

Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.Open "provider=sqloledb;uid=sa;pwd=;database=nombre_BD;Server=Miservidor"

pero ahora lo que debe hacer el programa es que cuando inicie, no se, ponerle por ejemplo un boton que busque en las bases de datos de SQL todas las bases de datos disponibles (las que trae por defecto incluso, si es que se puede), mostrarlas en una lista y dar a elegir al usuario que base de datos quiere ocupar, por favor si alguien me puede dar una idea de como consigo buscar las bases de datos.

Con la función Dir

Sólo le tienes que pasar como parámetro la ruta donde se encuentran las bases de datos.