vistas

Hola otra vez:
He probado con algo parecido a lo que me has dicho. El
caso es que si solicito la lista de nombres de tablas ( la
linea que esta como comentario) me las devuelve, pero a la
hora de pedir los nombres de las vistas me da el siguiente
error:
Run-Time error '3251'
Object or provider is not capable of performing
requested operation.

Sub form_load()
Dim conex As ADODB.Connection
Dim rs As New ADODB.Recordset
Set conex = New ADODB.Connection
conex.ConnectionString = "driver={sql server};"
& "server=" + so + ";uid=sa;pwd=admsql;database=" + bdo
conex.ConnectionTimeout = 30
conex.Open

Set rs = conex.OpenSchema(adSchemaViews) ' ERROR
'Set rs = conex.OpenSchema(adSchemaTables) 'Esta bien
MsgBox rs.GetString
End Sub


Si lo que no me pase a mi
Gracias de nuevo. Saludos