J Jorge Feb 5, 2004 #2 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
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