Hey there, when you install SQLDMO on your machine, usually installs with the desktop edition of SQL Server on a development machine, you get access to some new methods and properties through the Application object. Using both the Application object and SQLDMO in your application you should be able to gather the SQL servers that are network-visable. Here is the code I used.
Dim i As Integer
Dim oNL As NameList
Set oNL = Application.ListAvailableSQLServers
For i = 0 To oNL.Count
Debug.Print oNL.Item(i)
Next i
Work great for me.
MattU