Visual Basic - AYUDA POR FAVOR

Hola, alguien me podría decir en que evento o de que forma puedo hacer que cada vez que me cambie de registro en un Adodc me realice una operación. Esta operación es:

select sum(total) from tabla

el codigo que tengo es este:

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Dim subt, tot As Long
Set cn = New Connection
Set rs = New Recordset
Set cs = New Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Miguel\PROCESOS\clilentes.mdb;Persist Security Info=False"
rs.Open "select sum(PEDD_SUBTOTAL) from PEDE_PEDIDOS_DETALLE", cn, adOpenDynamic, adLockOptimistic
cs.Open "select sum(PEDD_TOTAL) from PEDE_PEDIDOS_DETALLE", cn, adOpenDynamic, adLockOptimistic '
'MsgBox rs.Fields(0), vbOKOnly, "es: "
'MsgBox cs.Fields(0), vbOKOnly, "es: "
subt = rs.Fields(0)
tot = cs.Fields(0)
Text1(11).Text = subt
Text1(12).Text = tot

If pRecordset.BOF Or pRecordset.EOF Then Exit Sub
Adodc2.Recordset.Filter = "PEDD_NO_PEDIDO = '" & Adodc1.Recordset.Fields("PEEM_NO_PEDIDO").Value & "'"
End Sub

Pro no me lo hace como quiero, ya lo habia intentado pero con ese metodo pero no lo hace.

Les agradeceria mucho que me ayudaran...Gracias