You can use ADOX to determine whether an Access Table exists.

Haha, no need to use ADOX !!
 

<%

Dim CN, strcnn, rstschema

Set Cn = server. Createobject ("ADODB. Connection ")
Set strcnn = server. Createobject ("ADODB. recordset ")
Set rstschema = server. Createobject ("ADODB. recordset ")

Strcnn = "provider = Microsoft. Jet. oledb.4.0 ;"
Strcnn = strcnn & "Data Source = F:/asptest/tree. mdb ;"
Strcnn = strcnn & "Persist Security info = false"

CN. Open strcnn
 
Set rstschema = cn. openschema (20)
Rstschema. movefirst
Do until rstschema. EOF
If rstschema ("table_type") = "table" then
Response. Write rstschema ("table_name") & "<br/>"
End if
Rstschema. movenext
Loop
CN. Close

'Set rstschema = nothing
'Set Cn = nothing
%>

SQL --> system table sysobjects

Example of using ADOX in access:

<%

Dim CN, strcnn

Set Cn = server. Createobject ("ADODB. Connection ")
Set strcnn = server. Createobject ("ADODB. recordset ")
 

Strcnn = "provider = Microsoft. Jet. oledb.4.0; Data Source = F:/asptest/tree. mdb; persist Security info = false"

CN. Open strcnn
Set TB = server. Createobject ("ADOX. Table ")
Set cat = server. Createobject ("ADOX. catalog ")
Set cat. activeconnection = Cn
 
For each a in cat. Tables
Response. Write a. Name & "<br>"
Next
 
CN. Close
%>