Crystal Report - Pasar Perametros y Refrescar Reporte

Necesito ayuda es muy urgente:

1) No puedo pasar parametros al crystal reports.
Se los pado a un campo de formula y al ejecutar el reporte no me muestra nada. Alguien sabe porque ????
En la web siempre mencionan este procedimiento pero no funciona

Private Sub Command1_Click()
Dim consulta As String
CrystalReport1.ReportFileName = App.Path + "\reportes\Report1.rpt"
CrystalReport1.WindowTitle = "INFORME DE AFILIACIONES"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Formulas(0) = "------------" & "jhiihhhhoi1654654"
CrystalReport1.Formulas(1) = "------------" & "jhiihhhhoi1654654"
CrystalReport1.Action = 1
End Sub


2) Tengo problemas para refrescar mis informes:
nota: probe de-seleccionar las 2 opciones de "guardar datos con el informe" desde el crystal. Pero de todas maneras no me actualiza el informe. Alguien sabe como se hace ??? Supongo que si.

with CrystalReport1
.DataFiles(0)="DSN=ODONTOMAX"
.ReportFileName = App.Path + "\reportes\ReporteSolicitud.rpt"
.SortFields(0) = "-{Socio.aFechaAlta}"
.SQLQuery = QUERY
.WindowState = crptMaximized
.Action = 1

Hola que ta para enviar parametrosdebes hacerlo con parametros asi:

ControlDeReportes.ParameterFields(1) = \\\"@cDesde0;Valor;True\\\"

@cDesde0 =Nombre del para metro queesta en Crystal Report
Valor = Es el valor que le enviaras de Visual Basic
True = Es obligatorio busca en la ayuda de todas formas

Y para que siempre te refresque debes realizar la conexion siempre que vayas a sacar un reporte:

sTempText = \\\"DSN = \\\" & sServidor
sTempText = sTempText & \\\";UID =GlobalUsuario\\\"
sTempText = sTempText & \\\";PWD =oriomka\\\"
sTempText = sTempText & \\\";DSQ = \\\" & sBasedeDatos
ControlDeReportes.Connect = sTempText

y quitale la opcion de Crystal Guardar datos con el informe ya deberia funciar asi