Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("xscj.mdb")
set rsSchema=Conn.openSchema(20)
rsSchema.movefirst
Do Until rsSchema.EOF
if rsSchema("TABLE_NAME")="tj008211" then 在此处弹出对话框
rsSchema.movenext
Loop
set objConn=nothing
原程序如上，我请教的问题是如何在数据库xscj中找到数据表tj008211后，程序能弹出一个对话框，说明这表已经存在，并有一个按纽来决定是否进行下一步的操作。