请问怎样批量删除链接表?

    Dim db As Database
    Set db = CurrentDb
    Dim tbl As TableDef
    For Each tbl In db.TableDefs
    If Len(tbl.Connect) > 0 Then
        DoCmd.DeleteObject acTable, tbl.Name
    End If
    Next