title: Runtime error '3705': opertion is not allowed when the object is open
body: <pre><code>'Redundancy checking function
  Private Function Redundancy_Check(Sup_ID)
  rs.Open "Select*from tblSupplier where Supplier_ID='" &amp; Sup_ID &amp; "'", cn, 3, 3
  If rs.RecordCount &gt; 0 Then
      If Not (rs.BOF And rs.EOF) Then
          iTerminate = True
      End If
  End If
  Set rs = Nothing
  End Function
  </code></pre>
  
  <p>Is there something wrong with my coding? I've checked the log and it states:</p>
  
  <p><strong>"Cannot load control usrGrid."</strong> </p>
  
  <p>I'm using Visual Basic 6.0 + MS Access.</p>