Visual Basic - MS SQL SERVER y COMBOBOX

Que tal compas:

Mi problema es que necesito cargar en un combobox las bases de datos existentes en en Mykrosopht SQL serber 2000 y estoy utilizando Visual Basic 6. He intentado: SELECT * FROM dbo.sysdatabases, pero reslta que para cargar las bases de datos debe de ser de forma recursiva ¿no? .

Ya le intentado de todo nada de mada. ¿Alguien me podria echar la mano?

Mira no entiendo muy bien lo que tratas de hacer, pero si lo que quieres es poner en un combo box los nombres de las bases de datos que existen en un SQL server utiliza esto:

debes agragar a un formulario un boton y un combo box
tambien debes hacer referencia al MS ADO Library 2.5 en tu proyecto

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
Set rs = cn.OpenSchema(adSchemaCatalogs, Array(Empty))
While Not rs.EOF
Debug.Print rs.Fields(0).Value
combobox1.additem rs.fields(0).value
rs.MoveNext
Wend

set rs = nothing
'set cn = nothing
End Sub

Private Sub Form_Load()
cn.Open "Provider=SQLOLEDB;Data Source=tu_servidor_sql;" & _
"User ID=tu_sa_user;password=tu_password;"
End Sub

Suerte!