下面是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控件也跳转到相应的项目，应当如何实现呢？求高手指点。

运行代码
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

提示：堆栈空间溢出