tablas de una base de datos

Puedes utilizar el procedimiento almacenado «sp_tables» (filtrando aquellos registros donde
TABLE_TYPE = 'TABLE' para las tablas o TABLE_TYPE = 'VIEW' para las vistas) o bien utilizar la
función «OpenSchema» de ADO, por ejemplo

Dim Cn As ADODB.Connection, Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "cadenaconexion"
Set Rs = Cn.OpenSchema(adSchemaTables)
While Not Rs.EOF
MsgBox Rs!TABLE_NAME
Rs.MoveNext
Wend
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic