Hi,

Add a reference to SQL DMO

Dim oApp As SQLDMO.Application
Dim oNames As SQLDMO.NameList

oApp = New SQLDMO.Application()
oNames = oApp.ListAvailableSQLServers

Dim i As Integer
For i = 1 To oNames.Count
Me.cboServerName.Items.Add(oNames.Item(i))
Next