想用ADO的方法OpenSchema来取视图的内容

[iloveinfo]

想用ADO的方法OpenSchema来取视图的内容，可是系统不支持，请问高手：还有其它办法吗？不要用sqlserver中的存储过程，只想用程序，且是通用型的，不要调sqlserver中特有的系统存储过程。拜托。

[online]

使用sqldmo对象
引用microsoft sqldmo object library
microsoft sqlnamespace object library

Dim srvSQL As SQLServer
Private Sub cmbView_Click()
On Error GoTo eh_sqldmo

'Initializing SQL DMo Object
Set srvSQL = New SQLServer
srvSQL.Connect srvName, user, Pass

'Set property of rtbox to text of selected View
rtBox.Text = srvSQL.Databases("pubs").Views("视图名").Text
srvSQL.Disconnect
Set srvSQL = Nothing
Exit Sub
eh_sqldmo:
MsgBox Err.Description, vbCritical, "Error Initializing SQL DMO Object"
End Sub