adodc 使用

记住，对adodc的一些操作（比如显示当前记录和总记录）：

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    With Adodc1
        .Caption = .Recordset.AbsolutePosition & "/" & .Recordset.RecordCount
    End With
End Sub

一定要在MoveComplete事件中使用，也就是完成数据操作之后。
MoveComplete是在 WillChangeField 事件之后，千万不要在WillChange里面。