asp如何读取Access数据库的表名？

asp读取access数据库表名称的代码：

<％
strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
  if rsSchema("TABLE_TYPE")="TABLE" then
      response.write rsSchema("TABLE_NAME") & "<br>"   
  end if
  rsSchema.movenext
Loop
set objConn=nothing
％>