När jag försöker lista tabellerna i en databas får jag följande fel:

ADODB.Connection (0x800A0CB3)
Objektet eller providern kan inte utföra den begärda åtgärden.

Så här ser koden ut:

<code>
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb;"))
Set rs = con.OpenSchema(adSchemaTables)
</code>

Har lite brottom att få det fixat, någon som vet vad det är för fel?

Kolla här:
[F&#229; ut tabell och kolumn-namn]

Har du deklarerat konstanter:
<code>
Const adSchemaTables = 20
</code>