ms-access - vba - このコレクションにアイテムが見つかりません

Question

実行時エラー「3265」が引き続き発生します。

アイテムは、rstAnswers("20GBRank") = irank のコレクションで見つかりませんが、他のデータベースでは機能します。

私は何を間違っていますか？どうすれば修正できますか？

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

Answer 1

エラーが発生しているデータベースにフィールド（列）20GRankが存在することを確認してください。