Crystal Report - AYUDA POR FAVOR

Tengo un problema con Crystal Report, y es que al darle al boton que deberia mostrar a continuación el informe, me sale un error:

Error en tiempo de Ejecución 20536
Imposible conectar, registro de parámetros incorrecto

y me señala la línea: crystal.action=1

Mi código es el siguiente:

Private Sub Command1_Click()

Data1.Recordset.Update
Data1.Recordset.AddNew

Crystal1.Action = 1

End Sub

Lo tengo así en otro programa y funciona, así que no sé porqué falla.

Muchas Gracias por adelantado. Kontxi.

AMIGO(A) MIA:

NO SE COMO EL CODIGO QUE INDICAS TE FUNCIONA CON ALGO, YA QUE ENTIENDO QUE AÑADES UN REGISTRO A UN DATA "ADDNEW" Y ACTUALIZAS UN REGISTRO "UPDATE" Y DESPUES LARGAS EL CRYSTAL, PERDONA QUIZAS ES QUE YO NO ESTE MUY AL TANTO DE TODO ESTO PERO PIENSO QUE SERA UN MILAGRO QUE TE FUNCIONE EN ALGUN MOMENTO, PERO YA LO PROBARE?????