Sirve para ver las tablas que existen en la BD's.
Código:
<!-- #INCLUDE File="adovbs.inc" -->
<script runat=server LANGUAGE="VBSCRIPT">
Dim oConn,rstSchema
Set oConn = Server.CreateObject("ADODB.Connection")
Set rstSchema = Server.createobject("ADODB.Recordset")
oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rebe_pad.mdb"))
Set rstSchema = oConn.OpenSchema(adSchemaTables)
response.write "<table>"
Do Until rstSchema.EOF
Response.Write "<tr><td>Tabla: " & rstSchema("TABLE_NAME")
Response.Write "<td>Tipo: " & rstSchema("TABLE_TYPE")
rstSchema.MoveNext
Loop
rstSchema.Close
oConn.Close
</script>