Sletning af poster

Har oprettet en formular med underformular
(frmInstruktoer og frmInstruktoerU) hvor jeg ved klik på knap ønsker at slette en instruktør, men kun hvis der ikke er registreret poster i frmInstruktoerU.

Men der er et eller andet galt med min kode, da jeg ikke kan slette den pgl instruktør selvom der IKKE er poster på frmInstruktoerU

Hvorfor virker dette her ikke???
________________________________________________
Private Sub cmdSletInstruktoer_Click()
' sletter instruktøren - MEN kun hvis der ikke er tilknyttet hold.

    On Error GoTo ErrHandler
    Dim intSvar As Integer
    Dim sSQL As String
   
    'Spørg brugeren om han/hun er sikker i sin sag
    intSvar = MsgBox("Er du sikker på at du vil slette" + vbLf + "instruktøren """ & Navn & """?", vbYesNo + vbExclamation, "Bekræft sletning!")
   
    'Hvis brugeren fortryder, så forlad proceduren
    If intSvar = vbNo Then Exit Sub
   
    'Her koden som sletter den aktuelle post
    sSQL = "DELETE * FROM tblInstruktoer WHERE InstruktoerID = " & InstruktoerID
   
    'Udfør sletteforespørgslen
    CurrentDb.Execute sSQL
   
    'Sørg for at formularen viser de sidste nye informationer, og dermed også fjerner den slettede post
    Me.Requery
   
    Exit Sub
   
ErrHandler:
   
    MsgBox "Det er IKKE muligt at slette instruktøren." + vbLf + "Der er hold tilknyttet instrukøren" + vbLf + "Slet holdene først.", vbOKOnly + vbInformation, "Sletning IKKE mulig!"
   
    Exit Sub
   
End Sub