hvordan afbryder jeg min while - løkke

Jeg vil gerne løbe mit recordsæt igennem, så længe "godkendt" (fra købslinierne)er lige med "ja". Hvis alle records er "ja", skal min SQL string "strSQLgodkend"udføres.

Hvis en af linierne ikke er godkendt endnu (godkendt="nej") skal subroutinen "godkendikke()" udføres og while sætningen afbrydes. Det virker ikke med exit. Hvordan gør jeg?

While Not objRS.EOF
  If godkendt="nej" Then
  Call godkendikke()
    Exit
    End If
  objRS.MoveNext()
Wend
objConn.Execute(strSQLgodkend)
Response.Redirect(strRedirect)



Sub godkendikke()
  objConn.Execute(strSQLgodkendikke)
  Response.Redirect(strRedirect)
End sub