Merhaba.
Alttaki gibi deneyin.

Dim db As DAO.Database

    Dim tbl As DAO.TableDef

    Set db = CurrentDb

    For Each tbl In db.TableDefs

        If Len(tbl.Connect) > 0 Then

            DoCmd.DeleteObject acTable, tbl.name

        End If

    Next

    db.Close

    Set db = Nothing