debugging the code(urgent)

[tanmay7551]

2)The developer of Accutech Technology is writing a code in VB.NET. He wants that when he clicks on Button1, the Button1 should display the "SCORMCourseItemMaster" crystal report. In addition, he wants to display predefined string and day of the week in that crystal report. He is specifying the following code on the click of the Button1:



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ds As New DataSet

Dim da As New SqlDataAdapter("Select * from SCORMCourseItemMaster", SqlConnection1)

Dim cr As New CrystalReport1

da.Fill(ds, "SCORMCourseItemMaster")

Dim ParaM As New CrystalDecisions.Shared.ParameterField

Dim ParaMFields As New CrystalDecisions.Shared.ParameterFields

Dim pararange As New CrystalDecisions.Shared.ParameterDiscreteValue

Dim strVAL As String



strVAL = "Todays Date" & Now.DayOfWeek.ToString

ParaM.ParameterFieldName = "fromdate"

pararange.Value = strVAL

ParaM.CurrentValues = pararange

ParaM.CurrentValues.Add(pararange)

ParaMFields.Add(ParaM)

CrystalReportViewer1.ParameterFieldInfo = ParaMFields

cr.SetDataSource(ds)

CrystalReportViewer1.ReportSource = cr

End Sub

End Class

However, this code is generating the build error. Identify the error and suggest the correct code.