Olá Nuno
I assume you mean sql servers ?
Had the following reference : Microsoft SQLDMO Object
Library ( in the COM tab)
Dim oDmoApp As New SQLDMO.Application()
Dim oDmoList As SQLDMO.NameList
Dim i As Integer
oDmoList = oDmoApp.ListAvailableSQLServers
For i = 1 To oDmoList.Count
Me.ComboBox1.Items.Add
(oDmoApp.ListAvailableSQLServers.Item(i))
Next
Kind Regards
Jorge
