Having Trouble Getting Openschema To Work To Report Table/columns Names

dbpath = "D:Pure-Flo IntranetdatabaseEngDB.mdb"
set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & dbpath
objConn.Open

Set rsSchema = objConn.OpenSchema(adSchemaTables)
Do Until rsSchema.EOF
If rsSchema.Fields("TABLE_TYPE") = "TABLE" Then
Response.Write rsSchema.Fields("TABLE_NAME") & "<br />"
End If
rsSchema.MoveNext
Loop
rsSchema.Close
set rsSchema = Nothing

just a simple example of what i'm trying to do. its supposed to list the names of all the tables in the database, but instead its returning the following error:

ADODB.Connection error '800a0cb3'

Object or provider is not capable of performing requested operation.