Kalau untuk menemukan nama SQL Server sih udah ketemu:
Private Sub Command1_Click()
Dim dmo As New SQLDMO.Application
'Don't forget to check mark on reference Microsoft SQLDMO Object Library
'List all available SQL Servers in the Server field.
Combo1.Clear
For Each Server In dmo.ListAvailableSQLServers()
Combo1.AddItem Server
Next Server
End SubTapi kalau ingin tahu list database dari SQL Server yang dipilih itu belum dapet nih....? Ada tahu gak..?
