load crystal report failed at runtime vb.net application

Hello Simon,

I use this code:
Code to set the application path:
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
MyBase.OnLoad(e)
sPath = System.IO.Path.GetDirectoryName(sPath)
If sPath.EndsWith("\bin") Then
sPath = sPath.Substring(0, Len(sPath) - 4)
End If
End Sub

Code to select the report, set the selection and call the reportviewer:
Private Sub btnKladdeclaratie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKladdeclaratie.Click
selection = Nothing
For Each dataGridViewRow As DataGridViewRow In dgWerkzaamheden.SelectedRows
If CBool(dgWerkzaamheden.SelectedRows(0).Cells("Gefiatteerd").Value) = False Then
Continue For
Else
selection = selection & "{Moon_Werkzaamheden.werkzaamhedenid}=" & CInt(dataGridViewRow.Cells("WerkzaamhedenId").Value) & " OR "
End If
Next

If Val(Len(selection)) > 0 Then
selection = "(" & Mid(selection, 1, Len(selection) - 4) & ")"
selection = selection
Dim objForm As New ReportViewer
objForm.ViewReport(sPath & "\Reports\Declaratie_Zaak.rpt", selection, )
objForm.Show()
End If
End Sub

Code to view the report:
Friend Function ViewReport(ByVal sReportName As String, Optional ByVal sSelectionFormula As String = "", Optional ByVal param As String = "") As Boolean
'MsgBox(sReportName)
'Declaring variablesables
Dim intCounter As Integer
Dim intCounter1 As Integer

'Crystal Report's report document object
Dim objReport As New _
CrystalDecisions.CrystalReports.Engine.ReportDocument

'object of table Log on info of Crystal report
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo

'Parameter value object of crystal report
' parameters used for adding the value to parameter.
Dim paraValue As New CrystalDecisions.Shared.ParameterDiscreteValue

'Current parameter value object(collection) of crystal report parameters.
Dim currValue As CrystalDecisions.Shared.ParameterValues

'Sub report object of crystal report.
Dim mySubReportObject As _
CrystalDecisions.CrystalReports.Engine.SubreportObject

'Sub report document of crystal report.
Dim mySubRepDoc As New _
CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim strParValPair() As String
Dim strVal() As String
Dim index As Integer

Try

'Load the report
objReport.Load(sReportName)

'Check if there are parameters or not in report.
intCounter = objReport.DataDefinition.ParameterFields.Count

'As parameter fields collection also picks the selection
' formula which is not the parameter
' so if total parameter count is 1 then we check whether
' its a parameter or selection formula.

If intCounter = 1 Then
If InStr(objReport.DataDefinition.ParameterFields(0).ParameterFieldName, ".", CompareMethod.Text) > 0 Then
intCounter = 0
End If
End If

'If there are parameters in report and
'user has passed them then split the
'parameter string and Apply the values
'to their concurrent parameters.

If intCounter > 0 And Trim(param) <> "" Then
strParValPair = param.Split(CChar("&"))

For index = 0 To UBound(strParValPair)
If InStr(strParValPair(index), "=") > 0 Then
strVal = strParValPair(index).Split(CChar("="))
paraValue.Value = strVal(1)
'MsgBox(paraValue.Value.ToString)
currValue = objReport.DataDefinition.ParameterFields(strVal(0)