about database

[lvpm]

Private Sub Form_Load()
Dim i As Integer
CommonDialog1.ShowOpen
Set db = OpenDatabase(CommonDialog1.FileName)
Set rs = db.OpenRecordset("tablecountry")
Call refreshrecord
For i = 0 To db.TableDefs("tablecountry").Indexes.Count - 1
Comboindex.AddItem db.TableDefs("tablecountry").Indexes(i).Name
Next
With Combooper
.AddItem "="
.AddItem "<"
.AddItem ">"
.AddItem "<="
.AddItem ">="
End With
End Sub

Private Function refreshrecord()
If rs.BOF Then rs.MoveFirst
If rs.EOF Then rs.MoveLast
Text1.Text = rs.Fields("国家").Value & ""
Text2.Text = rs.Fields("首都").Value & ""
Text3.Text = rs.Fields("代码").Value & ""
Text4.Text = rs.Fields("时差").Value & ""
Text5.Text = rs.Fields("所在洲").Value & ""
End Function
QUESTION:
运行时提示错误信息“实时错误‘3265’：这个集合中找不到此项目”错误提示在‘所在洲’这一行，希望得到解决的方法。
数据库使用VB自带的外界程序的可视化数据库管理器建立的access verison 7.0mdb创建。以上字段是同时建立的应该没有问题。

[无言无忌]

bing71说的没错,肯定是"所在洲"字段不存在.

[知行职场-雷曼]

in msdn
3265
ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

[bing71]

是不是没有"所在洲"字段，或字段名有误？