ADOX 好像确实解决不了!
'引用 Microsoft SQLDMO Objects LibaryDim SQLSvr As New SQLDMO.SQLServer
SQLSvr.Connect "ServerName", "sa","password"
Debug.Print SQLSvr.Databases.Item("DBName").Views.Item("WebQuery").Text
'Debug.Print SQLSvr.Databases.Item("DBName").StoredProcedures.Item("SPName").Text