在asp中，如何读出access数据库里所有表的名字，和一个表里所有字段的名字？

---------------------------------------------------------------

读取表名：

1   
2strConn="DBQ="+server.mappath("kendylan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"   
3set objConn=server.createobject("Adodb.connection")   
4objConn.open strConn   
5set rsSchema=objConn.openSchema(20)   
6rsSchema.movefirst   
7Do Until rsSchema.EOF   
8if rsSchema("TABLE_TYPE")="TABLE" then   
9response.write rsSchema("TABLE_NAME") & "

<br/>

1"   
2end if   
3rsSchema.movenext   
4Loop   
5set objConn=nothing

---------------------------------------------------------------

for i=0 to rs.fields.count-1
response.write rs(i).name
next