你的错误在：Private Sub Adodc1_WillMove这一行1、ADODB.Recordset20不是一个有效类型，去掉20，这不是你的问题的原因，你的问题在下面：2、检查Adodc1的属性窗口，看一下Index属性是否为空，如果不为空（可能性较大），将其设置为空；如果Adodc1确实是控件数组（这个可能性不大），在Adodc1_WillMove事件中加入：Index As Integer，如：Private Sub Adodc1_WillMove(Index As Integer, ByVal adReason... 此问题出现在：1、控件数组的相关事件中没有Index；2、单个控件的相关事件中加入了Ind...
