title: Do While loop hangs
body: <p>The loop below hangs if the input fufills the Do...While condition.</p>
  
  <ol>
  <li><p>This code is meant to first check if the entered product code in the combobox (Me!Combo_Product_number) exists in product code field of query Q_compliant_FCM_EU.</p></li>
  <li><p>If it exists, it tests for compliance. The product is compliant if all its PURE_QP1 (which can be more than one for a particular product) is found in PURE_QP1 field of T_DOSSIER_FPL. 
  If at least one of them is not found, then it is not compliant.</p></li>
  </ol>
  
  <pre><code>Private Sub Command455_Click()
  Dim db As DAO.Database
  Dim rst As Recordset
  Dim rst1 As Recordset
  
  If Nz(Me!Combo_Product_number) &lt;&gt; "" Then
     Set db = CurrentDb
     Set rst = db.OpenRecordset("Q_compliant_FCM_EU", dbOpenDynaset)
     Set rst1 = db.OpenRecordset("T_DOSSIER_FPL", dbOpenDynaset)
  
     rst.FindFirst "[PRODUCT_CODE] = '" &amp; Me!Combo_Product_number &amp; "'"
     If Not rst.NoMatch Then
  
         Do While Not rst1.EOF
  
          rst1.FindFirst "[PURE_QP1] = '" &amp; rst.Fields("PURE_QP1") &amp; "'"
  
          If Not rst1.NoMatch Then
              rst1.MoveNext
          Else
              MsgBox ("Product code is NOT compliant to FPL")
              Exit Sub
          End If
  
         Loop
  
         MsgBox ("Product code is compliant to FPL")
  
     Else
         MsgBox ("Product code is not available")
     End If
  
  End If
  
  End Sub
  </code></pre>
  
  <p>What is wrong with the above code?</p>