Crystal Report - Ayuda urgente Cristal y vb6

Estoy realizando reportes con visual 6 y cristal report 7 to do me sale perfecto unicamente no logro enviarle un valor desde visual a cristal report para colocarlo en el reporte ya que ese comentario o numero o fecha que quiero colocar no se encuentra en la base de dato con la cual realizo los reporte si alguien me puede ayudar se lo agradesco

Con esta envio la fecha : PERO SOLO COMO VARIABLE NO SELECCIONA NADA DESDE VISUAL
campo Fecha:
CrystalReport1.formula(1)="@FecIni='" & Format(dtpFchaI, "dd/mm/yyyy") & "'"
campo texito
CrystalReport1.Formulas(2) = "@DIRECCION='" & txtCalle & " '"
numerico
CrystalReport1.Formulas(3) = "@user= " & CveUsr

en esta caso envio tres valores desde visual fecha, direccion y usuario
el campo de formula @FecIni debe estar definido en tu reporte de crystal

si deseas selccionar :
CrystalReport1.SelectionFormula = "{Cat_bancos.bco_pkclave}=" & val(txtBco)

CrystalReport1 : componente en visual
{Cat_bancos.bco_pkclave}=nombre de la tabla / campo

desde visual
CrystalReport1.ReportFileName = App.Path & "\Reportes\ServiPresenta.rpt"
CrystalReport1.SelectionFormula = "{Cat_bancos.bco_pkclave}=" & val(txtBco)
CrystalReport1.formula(1)="@FecIni='" & Format(dtpFchaI, "dd/mm/yyyy") & "'"
CrystalReport1.Formulas(2) = "@DIRECCION2='" & txtCalle & " '"
CrystalReport1.Formulas(3) = "@user= " & CveUsr
CrystalReport1..WindowState = crptMaximized
CrystalReport1..Action = 1
CrystalReport1..Destination = 0

espero que te sirva

Hola, espero que me ayudes dime, como puedo asignar a una formala desde el Vb porder sumar cierto campo.... ya que tengo grupos y al usar esta sentencia:

CrystalReport1.Formulas(1) = "formula=sum({sp_RptFaturacion;1.C1001})"

hace que sume todo el campo C1001 apesar que estan agrupados por area...
osea que mi tabla seria asi:
Area C1001
AAA 10
AAA 20
AAA 30
BBB 15
BBB 20
BBB 35

entonces mi reporte quiero que salga asi:
AAA C1001
10
20
30
Total: 60

BBB 15
25
35
Total: 75
Ayudenme porfavor no se como hacerlo
Alex

CrystalReport1.ReportFileName = App.Path & "\Reportes\ServiPresenta.rpt"
CrystalReport1.SelectionFormula = "{Cat_bancos.bco_pkclave}=" & val(txtBco)
CrystalReport1.formulas(1)="FecIni='" & Format(dtpFchaI, "dd/mm/yyyy") & "'"
CrystalReport1.Formulas(2) = "DIRECCION2='" & txtCalle & " '"
CrystalReport1.Formulas(3) = "user= " & CveUsr
CrystalReport1..WindowState = crptMaximized
CrystalReport1..Action = 1
CrystalReport1..Destination = 0

Este codigo si funciona pero sin "@" ojo