请帮我解决下这个问题,说我BUSNO不是index,..?????谢谢

Question

Private Sub Combo1_click()
Dim BusNU As String
Combo1.Text = BusNU
Data1.Recordset.Index = "BusNO"
Data1.Recordset.Seek "=", BusNO
If Data1.Recordset.NoMatch Then
MsgBox ("对不起，没有您所查询的路线")
Data1.Recordset.MoveFirst
End If运行的时候说,"BusNO" isn't an index in this table. Look in the Indexes collection of the TableDef object to determine the valid index names
请问我如何解决这个问题呢?
他说是"Data1.Recordset.Index = "BusNO"这句出了问题,但是我数据库里面的字段就是用的BUSNO啊??
请帮我看下,谢谢了

Answer 1

该字段设置为索引属性了么？如果不是，那就将"BusNO"改成"PrimaryKey"吧。