Private Sub rec_delete(Key As Double)
Dim rsXCheck As New ADODB.Recordset
On Error Resume Next
With rsXCheck
    .ActiveConnection = SQLCon
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT PARENT_KEY,CHILD_KEY FROM XREF_ELEMENT WHERE" & _
      "RELATIONSHIP_ID='.XREF.PART' AND PARENT_KEY=" & Replace(Key, ",", ".") 
    .Open
End With
 
For i = 1 To rsXCheck.RecordCount
rec_delete rsXCheck!child_key
        cmdRemove.ActiveConnection = SQLCon
        cmdRemove.CommandType = adCmdText
        cmdRemove.CommandText = "DELETE FROM XREF_ELEMENT WHERE" & _
          "RELATIONSHIP_ID='XREF.PART' AND PARENT_KEY=" & Replace(Key, ",", ".") 
        cmdRemove.Execute
        Set cmdRemove = Nothing
rsXCheck.MoveNext
Next
rsXCheck.Close
Set rsXCheck = Nothing
End Sub