Hjælp, min løkke virker ikke som den skal!

Jeg har et hentet et recordsæt med køb, købslinier og tilhørende varer. Jeg vil gerne løbe det igennem og checke om hver købslinie er godkendt, inden jeg godkender hele købet.
Dvs. at hvis en købslinie mangler godkendelse, kan hele købet ikke godkendes.

Det som koden gør er, at den godkender hele købet hvis første købslinie er godkendt, selvom alle andre mangler godkendelse endnu. Og det var jo ikke det jeg ville....... (suk)

Sub godkendikke()  //godkender ikke købslinien
  objConn.Execute(strSQLgodkendikke)
  Call redir()
End Sub

Sub godkend() //godkender købslinien
objConn.Execute(strSQLgodkend)
End Sub

Sub redir() //redirect til købssiden
Response.Redirect(strRedirect)
End Sub

objRS.MoveFirst
Do Until  objRS.EOF 
    If godkendt="ja" Then  //købslinie godkendt?
    objRS.MoveNext
  Else
    Call godkendikke()
    Exit do
  End if   
Loop

If objRS.EOF Then
  Call godkend()
  Call redir()
End if