Exportar a PDF informe CrystalReports.

Hola,

Tengo este código que funciona correctamente. Simplemente le paso un
parámetro. El problema es cuando quiero exportar el reporte a PDF. Me sale el
error "Failed to export using the options you specified. Please check your
options and try again.". Creo que el problema está cuando se refresca el
reporte que pierde el valor de TextBox1.Text. Alguien sabe como puedo
solucionar esto. Muchas gracias,

        Dim param As New ParameterField()
        param.ParameterFieldName = "Codigo"

        Dim discreteValue As New ParameterDiscreteValue()
        discreteValue.Value = TextBox1.Text
        param.CurrentValues.Add(discreteValue)

        Dim paramFiels As New ParameterFields()
        paramFiels.Add(param)

        CrystalReportViewer1.ParameterFieldInfo = paramFiels

        Dim report As New CrystalReport1
        CrystalReportViewer1.ReportSource = report