Public Function DeleteCascade(strTableName As String)
On Error Resume Next
    Dim erc As Long, erm As String
    
    ' Try'
    CurrentDb.Execute  "Delete * From ["  & strTableName &  "]" , dbfailonerror
    erc = Err.Number: erm = Err.Description
    
On Error GoTo  0 
    If erc =  0  Then
        'Success'
        Exit Function
    ElseIf erc =  3200  Then
        'Some related records'
        Dim rls As Relations, rl As Relation
        Set rls = CurrentDb.Relations
        
        For Each rl In rls
            If rl.Table = strTableName And (rl.Attributes And dbRelationDeleteCascade) =  0  Then
                DeleteCascade rl.ForeignTable
            End If
        Next rl
    Else
        'Shit happens'
        Err.Raise erc, , erm
    End If
    Err.Clear
End Function