[Resolvido]Excluir a tabela de erro se ela existir

 Dim obj As AccessObject, dbs As Object, tbl As String
    Set dbs = Application.CurrentData
            tbl = "Tabela 2_BSB_ImportErrors inexistente"

    For Each obj In dbs.AllTables
        If obj.Name = "2_BSB_ImportErrors" Then
            tbl = "2_BSB_ImportErrors"
        End If
    Next obj

If tbl = "T2_BSB_ImportErrors" Then
   DoCmd.DeleteObject acTable, tbl
Else
   MsgBox tbl
End If

 'Declaro obj como um objeto do Access, dbs como um objeto e tbl como uma string
 Dim obj As AccessObject, dbs As Object, tbl As String
 'Configuro dbs como um objeto de dados da aplicação corrente
    Set dbs = Application.CurrentData
 'Defino a variável tbl com a mensagem que aparecerá caso tabela não exista
            tbl = "Tabela 2_BSB_ImportErrors inexistente"
 'Para cada objeto dentro do conjunto de tabelas do projeto...
    For Each obj In dbs.AllTables
 'Se o o nome do objeto tabela for "2_BSB_ImportErrors" então...
        If obj.Name = "2_BSB_ImportErrors" Then
 'Variável tbl mudará para o nome da tabela
            tbl = "2_BSB_ImportErrors"
 'Fim da condição
        End If
 'Analisa próxima tabela
    Next obj

 'Caso exista a tabela a ser excluída, tbl terá o nome dessa tabela. Se isso for verdadeiro então...
If tbl = "T2_BSB_ImportErrors" Then
 'Manda a tabela para o raio que a parta
   DoCmd.DeleteObject acTable, tbl
 'Caso contrário...
Else
 'Exibe a mensagem configurada na primeira instância da variável tbl
   MsgBox tbl
 'E fim de papo.
End If

Dim obj As AccessObject, dbs As Object, tbl As String
    Set dbs = Application.CurrentData
            tbl = "Não existem tabelas a serem deletadas"

    For Each obj In dbs.AllTables
        If Right(obj.Name, 12) = "ImportErrors" Then
            tbl = obj.Name
            DoCmd.DeleteObject acTable, tbl
        End If
    Next obj

If tbl <> "Não existem tabelas a serem deletadas" Then
    tbl = "Tabelas foram deletadas com sucesso."
End If
   MsgBox tbl

Dim obj As AccessObject, dbs As Object, tbl As String, LTab As String
    Set dbs = Application.CurrentData
    tbl = "Não existem tabelas a serem deletadas"
    LTab = "LISTA DE TABELAS EXCLUÍDAS" & vbCrLf

    For Each obj In dbs.AllTables
        If Right(obj.Name, 12) = "ImportErrors" Then
            tbl = obj.Name
                LTab = LTab & vbCrLf & tbl
            DoCmd.DeleteObject acTable, tbl
        End If
    Next obj

If tbl <> "Não existem tabelas a serem deletadas" Then
   tbl = LTab
End If
   MsgBox tbl, , "Status"