Thanks to the SQL-DMO object model, it’s very easy to list all the available SQL Server 7.0 installations. For example, this code loads all the SQL Servers registered on the local machine into a ComboBox control:
' NOTE: this code assumes that you've added a reference to the' SQL-DMO type library in the References dialog boxDim sqlApp As New SQLDMO.ApplicationDim NameList As SQLDMO.NameListDim index As Long Set NameList = sqlApp.ListAvailableSQLServerscboServers.Clear' local SQL Server must be added manuallycboServers.AddItem "." For index = 1 To NameList.Count cboServer.AddItem NameList.Item(index)Next