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里面。