Indhentning af tabelnavnene fra en datasource?

Hvordan indhenter man tabelnavnene fra en database ?

Jeg har prøvet at bruge OpenSchema som i følge mine bøger skulle kunne gøre det, jeg har prøvet med følgende kode :

<%
SET Conn = CreateObject("ADODB.Connection")
SET RS = CreateObject("ADODB.Recordset")
   
Conn.Open "TAO"

SET RS = Conn.OpenSchema(adSchemaTables)

WHILE NOT RS.EOF
    response.write(RS(0))
RS.MoveNext
WEND

%>

Men jeg får bare følgende fejl :

ADODB.Connection error ''800a0cb3''

The operation requested by the application is not supported by the provider.

/showtables.asp, line 13

Kan det skyldes at access ikke understøtter funktionen eller har jeg glemt et eller andet?