下面是Data控件响应List控件单击事件的一段代码，也就是说，在List控件中单击某项，Data控件就能跳转到相应的记录：
Private Sub List1_Click()
On Error Resume Next
Dim i As Integer
i = List1.ListIndex
If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
Data1.Recordset.Move i
End Sub
现在希望data控件指向某条记录时，List控件也跳转到相应的项目，应当如何实现呢？求高手指点。

在data控件的单击事件中实现，或者用个Timer来捕获data记录指针所指记录

不要用data这个老古董了.
使用ado
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

在这事件里写代码.

运行代码
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
List1.Text = Adodc1.Recordset.Fields(0)
End Sub

提示：堆栈空间溢出

purana能给段代码吗？谢谢！

LuoSZ能否给出一段代码或者给一个实例？谢谢！

用获取list的list()属性和配合selected可以实现

其实这个问题应该用DataList来解决
只要动态设置dataList的ListFIled 和 RowSource就行了.