如何在代码中删除MDB数据库中存在的表（急！急！急！）

Question

Dim conn As new ADODB.Connection
conn.ConnectionString = "driver={Microsoft access driver (*.mdb)};dbq=" & App.Path & "\数据库.MDB" 
conn.ConnectionTimeout = 50
conn.Open'删除表
conn.Execute "drop table tablename"
'tablename为你的表名

Answer 1

conn.execute "drop table table_name"

Answer 2

conn.execute "drop table table_name"

Answer 3

来晚了，再写一个DAO的代码吧。
Dim db As Database, tbs As TableDefs
Set db = DBEngine.OpenDatabase(yourmdbfile)
Set tbs = db.TableDefs
tbs.Delete (表名)
db.Close
Set tbs = Nothing
Set db = Nothing