你用的是什么?
dao,ado?
如果是dao:
dim dbTemp as Database
dim tdfTemp as TableDef
set dbtemp=opendatabase(...)
for each tdfTemp in dbTemp.Tabledefs
dbTemp.execute "delete from " & tdfTemp.Name
next
dbTemp.close
如果是Ado,你要用ADOX (ADO Extended )
dim catTemp as adox.catalog
dim acnTemp as adodb.connection
dim I as integer
acnTemp.open ...
set catTemp.activeconnection=acnTemp
for i=0 to catTemp.tables.count-1
acnTemp.execute "delete from " & catTemp.Tables(i).name
next i
set catTemp=nothing
acnTemp.close