Dim Db As Database
Dim TabDef As TableDef
 
Set Db = OpenDatabase("DeineMDB.mdb")
With Db
  For Each TabDef In .TableDefs
    If UCase$(Left$(TabDef.Name, 4)) = "TEST2" Then
      <font color=green>'Jetzt löschen</font>
      Db.TableDefs.Delete TabDef.Name
      Exit For
    End If
  Next
End With
Db.Close
Set Db = Nothing