删除指向表的两个链接之一

Question

通过各种操作，用户可以使用两个或多个指向同一个表的链接，例如指向x，x1，x2的链接等。

我想删除这些无关的链接（x1 ......）作为清理工作，即使它们没有真正的伤害。

我试过了

   Sub KillDBFile(FN As String)    ' Doesn't word to delete link
   Dim x As Byte
Dim s, t, u As String
Dim dbOther As Database
Set dbOther = OpenDatabase(DataFileAndPath)
For x = 1 To 5
    t = Str(x) ' for debug/test only
    u = Mid(Str(x), 2)
    s = FN & Mid(Str(x), 2)
    On Error Resume Next
    dbOther.TableDefs.Delete s
Next
dbOther.Close
End Sub

其中DataFileAndPath是链接表的路径和文件（即“C：..... \”），FN是表名。我插入了s，t和u变量以帮助调试。我发现这不会删除所需的链接

建议？