Ağdaki Sql Server'ların Listesi

Merhaba Arkadaşlar. Bu Kodları Formunuzun Bir Kısmına Yazın.
Public Function SQLSunucular(cmBServers As ComboBox) As Boolean
Dim mApplication As New SQLDMO.Application
Dim mNames As SQLDMO.NameList
Set mNames = mApplication.ListAvailableSQLServers
Dim temp As Integer
cmBServers.Clear
For temp = 1 To mNames.Count
DoEvents
cmBServers.AddItem mNames(temp)
Next
If cmBServers.ListCount <> -1 Then Eğer Combo1 Dolu ise Sunucular Bulundu
SQLSunucular = True
Else
End
SQLSunucular = False ‘DEğiş ise Sunucular Yok…
End If
End Function
Formun Load Olayına….
Private Sub Form_Load()
if SQLSunucular(Combo1) then
Msgbox “Ağınızdaki Sql Serverlar Listelendi”
end if
end sub