删除表间关系

后来我又把代码修改了一下，变成

    Dim i As Long
    Dim x As Long
    Dim strRela As String    

    Dim db As DAO.Database
    Set db = CurrentDb
    i = db.Relations.Count
    For x = 2 To (i - 1)
    i2 = db.Relations.Count
    strRela = db.Relations(i2 - 1).Name 

    db.Relations.Delete strRela    '删除这个关系
    Next x
     'DoCmd.DeleteObject acTable, "菜肴名称表"

这样改后在其中一个库中已经能顺利删除所有关系了，达到了我想要的目的。

但另外一个库仍提示DAO那句代码 用户定义类型未定义，我搞不清在哪儿定义，怎么定义，请高手指点一下。谢谢！