Add:

CrystalReport1.Action = 1