在VB中用SQLDMO获取本地所有服务器名，需要引用的组件教什么？

Question

大家帮忙看看下面的代码出什么问题了。
报错说Expected Function or variable.出错表示在Connect
Private Sub cmbDatabase_DropDown()
    If "" = Trim(cmbServerName.Text) Then
        cmbServerName.SetFocus
        MsgBox ("Please select a server.")
    If "" = Trim(ServerUserName.Text) Then
        ServerUserName.SetFocus
        MsgBox ("Please input user name.")
    End If
    If "" = Trim(ServerPassword.Text) Then
        ServerPassword.SetFocus
        MsgBox ("Please input password.")
    End If
    Dim strServer As SQLDMO.SqlServer
    Dim connFlag As String
    connFlag = strServer.Connect(cmbServerName.Text, ServerUserName.Text, ServerPassword.Text)
    For i = 1 To strServer.Databases.Count
    cmbDatabase.AddItem strServer.Databases(i).Name
       
End Sub

Answer 1

Microsoft SQLDMO Object Library

Answer 2

参照一下代码
    Dim sqlApp As SQLDMO.Application
    Dim sqlNameList As SQLDMO.NameList
    Dim i As Integer
    
    On Error GoTo ErrorLine
    
    Set sqlApp = New SQLDMO.Application
    Set sqlNameList = sqlApp.ListAvailableSQLServers
    
    For i = 1 To sqlNameList.Count
        lstServer.AddItem sqlNameList.Item(i)
    Next
    
    sqlApp.Quit
    
    Set sqlNameList = Nothing
    Set sqlApp = Nothing
    
    Exit Sub

Answer 3

Microsoft SQLDMO Object Library