别那么苛刻嘛!
你查一下MSDN,里面有不少类似的例子!

解决方案 »

  1.   

    用SQLDMO很简单
    1,引用Microsoft SQLDMO Object library
    Dim oApplication As New SQLDMO.Application
    Dim oNameList As SQLDMO.NameList
    Dim i As Integer
    Set oNameList = oApplication.ListAvailableSQLServers()Combo1.Clear
    For i = 1 To oNameList.Count
        Combo1.AddItem oNameList.Item(i)
    NextSet oNameList = Nothing
    Set oApplication = Nothing
    上面代码是杯举出当前网络中可用数据库服务器