Dim db As Database
Dim rec As Recordset

Set db = OpenDatabase("D:\Documents and Settings\Administrator\My Documents\城市的评价要素+权数（德尔非法）.mdb")
Set rec = db.OpenRecordset("城市的评价要素", dbOpenDynaset)
rec.Index = "城市名称"　（此处出现错误，说我这对象类型不支持该操作！下面的也是，怎么回事呀！）
rec.Seek "=", Combo2.Text
If rec.nomatch Then

谢谢了！我又遇到问题了！

去掉，　 dbOpenDynaset　之后，没有提示上述的错误　但是　又在rec.Index = "城市名称"　处提示　城市名称"　不是该表的索引　但是我定义了城市名称是这个的索引那！！