[VB 6] Lista server e DB per sql server

[Last_Winter]

Ciao a tutti.

Stò cercando di caricare in una combobox la lista dei server sql presenti in una lan e in un'altra i database del server selezionato e , ovviamente, la lista dei campi del db scelto in un'altra .....dai che lo sapete....

[Last_Winter]

Trovato!.....ecco il codice a chi interessa....

''''''''''''
Set dmoApplic = CreateObject("SQLDMO.Application")

For idx = 1 To dmoApplic.Application.ListAvailableSQLServers.Coun t
cboServer.AddItem dmoApplic.Application.ListAvailableSQLServers(idx)
Next



che sballo :metallica