判断一个access数据库中某个表是否存在的方法

ASP程序如下：

<%

rem x=0 表示不存在，x=1 表示存在

strConn="DBQ="+server.mappath("zw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set objConn=server.createobject("Adodb.connection")

objConn.open strConn

set rsSchema=objConn.openSchema(20)

rsSchema.movefirst

tablename="gd111"

x=0

Do Until rsSchema.EOF

if rsSchema("TABLE_TYPE")="TABLE" then

if rsSchema("TABLE_NAME")=tablename then

x=1

exit do

end if

end if

rsSchema.movenext

Loop

if x=0 then response.write"没有找到！！！"

if x=1 then response.write"找到了"

set objConn=nothing

%>