'调用方法：Call sc

'

Public Function sc()
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
 If Len(tdf.Connect) = 0 And tdf.Attributes = 0 Then
 DoCmd.DeleteObject acTable, tdf.Name
  End If
 Next tdf
 dbs.Close
End Function