这个方法需要先引用 ADO   

Dim cnn As new ADODB.Connection

    Dim rst As  new ADODB.Recordset
    Dim strSQL As String
    
    Dim strConnect As String
    Dim strServer As String
    Dim strUserName As String
    Dim strPassWord As String
    
    strServer = Me.txtServer
    strUserName = Me.txtUserName
    strPassWord = Me.txtPassword
    strConnect = "Provider=SQLOLEDB;" _
        & "User ID=" & strUserName & ";" _
        & "Password=" & strPassWord & ";" _
        & "Data Source=" & strServer & ";"
    cnn.ConnectionString = strConnect
    cnn.Open 


    strSQL = "select * from sys.databases "
    Set rst = cnn.Execute(strSQL)
    With Me.lstTableList
       .RowSource = ""
        rst.MoveFirst
        Do While Not rst.EOF
            .AddItem rst.Fields("name")
'            Debug.Print rst.Fields("name")
            rst.MoveNext
        Loop    
    End With
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing