Eliminar las tablas vinculadas

Mediante el siguiente código se eliminan las tablas vinculadas de una base de datos:

Sub sRemoveLinks()
Dim db As Database
Dim tdf As TableDef
Dim intCount As Integer, intPos As Integer
Set db=DBEngine(0)(0)
intCount=db.TableDefs.Count-1
For intPos=intCount to 0 Step -1
Set tdf=db.TableDefs(intPos)
If Len(tdf.Connect)>0 Then
DoCmd.DeleteObject acTable, tdf.Name
End If
Next intPos
End Sub

Fuente: Applecore