Sub TestDelRela()
    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 = 1 To i
        strRela = db.Relations(i - 1).Name '关系的名称
        MsgBox "第" & i & "个关系的名称为：" & strRela
        db.Relations.Delete strRela    '删除这个关系
    Next x
End Sub