Getting error while passing parameter in crystal report in VB.NET

See more:

VB

MS-Access

CrystalReports

Hi All
I have been trying to solve passing parameters in Cyrstal report,

What I have done is :

1) I added cyrstal repot in my project,

2) I connect with database using OLE DB (ADO) in database Expert form (For your kind information; I did not create or add DataSet1.xsd file the cyrstal report worked on below code with out parameters and I want report with parameter)

3) I added below piece of code on my form load event


When I try to pass parameter using .SetparameterValue Function, report pop up with bunch of values BUT it does not filter with values which I want



Here is helping images

Error Image
Crystal report look
DB Connecion

PLEASE HELP ME, I HAVE BEEN TRYING TO SOLVE THIS CODE SINCE 2 MONTHS

Public Class frmrptProducts

    Private Sub frmrptProducts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim cryRpt As New ReportDocument
        Dim CrTables As Tables
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo

        'Try

        'load report
        cryRpt.Load(ReportPath & "CRproducts.rpt")

        'parameters definition(if any)
        Dim ColourName As String = "White"
        cryRpt.SetParameterValue("colours", ColourName)

        'provide connection info. This is important and you can change it as per your db location
        With crConnectionInfo
            .ServerName = My.Application.Info.DirectoryPath.ToString() & "\data\db.mdb"
            '.DatabaseName = ""
            '.UserID = ""
            .Password = ""
        End With

        CrTables = cryRpt.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)

        Next


        CRV.ReportSource = cryRpt
        CRV.Refresh()

        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try

    End Sub