[求助]单击DBList列表中的某项，怎样让data控件跳转到相应记录
书上说：为了实现单击DBList1控件对象列表中的某一项就能指到相应记录，在DBList1控件对象的Click事件中加入如下程序：
Data1.Recordset.Bookmark = DBList1.SelectedItem
但在实际运用中，系统提示：对象不支持该属性或方法。
怎样才能使单击DBList1控件列表中的某项时，data1控件跳转到相应记录呢？
求高手指点。谢谢！
书中原文：
'单击DBList1控件，实现与Data1控件对象同步
Private Sub DBList1_Click()
'获取DBList1控件对象中选定的项目的行数，并赋值给记录集的Bookmark属性
Data1.Recordset.Bookmark = DBList1.SelectedItem
End Sub
运行时系统提示：对象不支持该属性或方法。