Max primeiro crie uma formula no relatorio e coloque ela onde vc quiser ok, depois dentro do vb hora que vc for chamar o relatorio faça isso
cr.Formulas(0) = "TESTE='" & "Teste de Formula'"
exemplo de um botao passando o texto do form para o relatorio crystal
Private Sub Command5_Click()
cr.ReportFileName = App.Path & " este.rpt"
cr.DataFiles(0) = App.Path & " este.mdb"
cr.Connect = "pwd=senha"
cr.Formulas(0) = "TESTE='" & txtNome.text & "'"
cr.Action = 1
End Sub