vb.net枚举网络中所有的SQL 2000服务器。[7]

        Dim a As String() = Str.Split(";")

        For i As Integer = 0 To a.Length - 1 Step 2

            Dim t As Integer = i

            Nv(a(t)) = a(t + 1)

        Next

    End Sub

    '因为要添加到combobox，这里重载了一下tostring以显示文本

    Overrides Function tostring() As String

        Return Nv("ServerName")

    End Function