I am trying to return all of the table names from my SQL Server 2000 Database. When I run my page I get this error:

ADODB.Connection error '800a0cb3'
Object or provider is not capable of performing requested operation.

Are there any permissions that need to be set for my database? I am able to Select, Update, Delete and Insert on all of my tables. Here is the code listing:

Dim Logonstring,Conn,RS
Logonstring = Session("ConnectionString") & ";database=" & Application("SQLDBName")
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open Logonstring
Set RS = Conn.OpenSchema(adSchemaTables)

The error occurs on Set RS = Conn.OpenSchema(adSchemaTables).