VBA項目不在此集合

Question

我一直不斷收到 運行時錯誤「3265」中發現的。

我在做什麼錯？我該如何解決它？

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存在於DB你在哪裏得到的錯誤。