Para seleccionar todos los registros de un Grid debes de hacer Algo asi como esto
If rsPedidoDet.RecordCount > 0 Then
rsPedidoDet.MoveFirst
Do While Not rsPedidoDet.EOF
Total(1) = CDbl(CCero(Total(1))) + rsPedidoDet("dblCajasTotales")
rsPedidoDet.MoveNext
Loop
Espero haverme dado a entender
Por cierto de donde te comunicas Silvia