tables og columns

Nedenstående kode virker ikke.. den kommer med fejlen:
Object or provider is not capable of performing requested operation.
.. selvom jeg har benyttet mig af samme kode i Visual Basic.
Hvad skal jeg gøre, for at få det til at virke?

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/dc.mdb")

Set tableRS = Conn.OpenSchema(adSchemaTables)

Do Until tableRS.EOF
    Response.Write tableRS("TABLE_NAME")
    tableRS.MoveNext
Loop


/Mikbj