title: vba - item not found in this collection
body: <p>I keep keep getting 
  Run-time error '3265': </p>
  
  <p>Item not found in this collection 
  for rstAnswers("20GBRank") = irank while it works in other db.</p>
  
  <p>What am I doing wrong? How can I fix it?</p>
  
  <pre><code>Option Compare Database
  Option Explicit
  
  Public Function Update20BldgRank()
  Dim db As Database
  Dim rstAnswers As Recordset
  Dim i As Integer
  Dim irank As Integer
  irank = 1
  Set db = CurrentDb()
  Set rstAnswers = db.OpenRecordset("Top20Genbld13", dbOpenDynaset)
  rstAnswers.MoveFirst
  Do Until rstAnswers.EOF
  rstAnswers.Edit
  rstAnswers("20GBRank") = irank
  rstAnswers.Update
  rstAnswers.MoveNext
  irank = irank + 1
  Loop
  rstAnswers.Close
  Update20BldgRank = irank - 1
  End Function
  </code></pre>