Crie um campo formula no crystal com o nome Sua_formula e deixe-o em branco.
No VB, coloque o seguinte comando:
Seu_RPT.Formulas(1) = "Sua_formula = " & Valor_q_vc_quer_passar & ""
Seu_RPT.action = 1
Se o indice 1 não der, coloque outro, pq depende do numero de formulas q vc passa como parametro...