Problemas al intentar devolver las bd de sql que estan activas en la maquina...

buenos dias,
estoy intentando conectarme a bases de datos de sql, y cuando realizo la
peticion para devolverme las bases de datos del sistema me devuelve el
siguiente error:

Error de QueryInterface para la interfaz SQLDMO.Namelist


El codigo que estoy utilizando es:
Dim I As Integer

Dim SQLServer As New SQLDMO.Application

lstSQL = SQLServer.ListAvailableSQLServers() !Aqui se produce el error..

mySQLServer = CreateObject("SQLDMO.SQLServer")

CbBd.Items.Clear()

For I = 1 To lstSQL.Count

CbBd.Items.Add(lstSQL.Item(I))

Next



Como es normal tengo registrada la referencia a Microsoft SQLDMO Object
Library (8.0)
si no no me dejaria compilar.. pero muestra siempre este error... este
codigo funciona perfectamente en vb6.0 .. pero no en NET..

Alguien sabe como puedo solucionarlo u otra forma de que me devuelva las bd
del Sistema..

Gracias