请教一下，判断某个表或查询是否已经存在的代码是什么？

 Public Sub Test()
   '查表，有则删除，表名自拟
   Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.name = "表名" Then DoCmd.DeleteObject acTable, tbl.name
    Next
 
   '查查询，有则删除，查询名自拟
    Dim qry As QueryDef
    For Each qry In CurrentDb.QueryDefs
        If qry.name = "查询名" Then DoCmd.DeleteObject acQuery, qry.name
    Next
End Sub