[Resolvido]Deletar Tabelas Vinculadas com Exceção

ola,

Consigo deletar todas as tabelas conectadas ao banco com o codigo abaixo.

É possivel colocar uma exceção em alguma parte especifica do mesmo, tipo tenho a tbl1, tbl2, tbl3 e tbl4, gostaria de manter a tbl3 e excluir o restante

Código:

Private Sub Comando113_Click()
'------------------------------------
'Deletar todas as tabelas vinculadas
'------------------------------------

Dim tbl As TableDef

For Each tbl In CurrentDb.TableDefs
  If Len(tbl.Connect & "") > 0 Then

      '-------------------------------------------------------------------

      'Excluir a tabela vinculada, identificada pela presença de valor na

      'propriedade connect

      '-------------------------------------------------------------------
      DoCmd.DeleteObject acTable, tbl.Name
  End If
Next

MsgBox "Vínculos Excluídos!", vbInformation, "Aviso"

End Sub

achei

https://www.maximoaccess.com/t173-resolvidosapagar-deletar-o-conjunto-de-tabelas-do-banco-de-dados