Obtener nombres de las base de datos de un servidor desde vb6

Quisiera saber si alguien me ayuda, estoy creando un sistema el cual trabajo con multiples bd y servidores, ya logre obtener los nombres de las instancias de sql instaladas en la red, ahora necesito saber como obtener los nombres de las bases de datos de ese servidor este es el procedimiento que uso para obtener los servidores.

Dim i As Integer
Dim oNames As SQLDMO.NameList
Dim oSQLApp As SQLDMO.Application
Dim oNamesBD As SQLDMO_DBUSERPROFILE_TYPE
Set oSQLApp = New SQLDMO.Application
Set oNames = oSQLApp.ListAvailableSQLServers()
List1.Clear
For i = 1 To oNames.Count
List1.AddItem oNames.Item(i)
Next i

Muy agradecido al que logre ayudarme