Access用VBA实现批量删除有相同前缀的表

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs        
  If Left(tbl.Name, 4) = "临时表_" Then             
    DoCmd.DeleteObject acTable, tbl.Name        
  End If     
Next

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs         
    If Left(tbl.Name, 4) = "临时表_" Then            
       CurrentDb.Execute "DROP TABLE [" & tbl.Name & "]"         
    End If    
Next