You should be able to do something similar to the following.
Dim strReportName As String
Dim myDB As New DBAccess
Dim myReader As OleDb.OleDbDataReader = Nothing
If myDB.Connect("MRCS") = False Then
Exit Sub
Else
Dim myDA As New OleDb.OleDbDataAdapter("spQryComments", myDB.myConn)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'try adding this line
myDA.SelectCommand.Parameters.Add(New OleDb.OleDbParameter("@projName", OleDb.OleDbType.VarChar)).Value = MRCSData.Instance.ProjectName
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Create DataSet, fill it and view in data grid
Dim myDS As New DataSet("SP")
myDA.Fill(myDS, "SP")
'Pass the reportname to string variable
strReportName = "rptCommIndividual"
'Get the Report Location
Dim strReportPath As String = Application.StartupPath & "\" & strReportName & ".rpt"
'Check file exists
If Not IO.File.Exists(strReportPath) Then
Throw (New Exception("Unable to locate report file:" & vbCrLf & strReportPath))
End If
'Assign the datasource and set the properties for Report viewer
Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDocument.Load(strReportPath)
rptDocument.SetDataSource(myDS.Tables(0))
rptViewer.ShowRefreshButton = False
rptViewer.ShowCloseButton = False
rptViewer.ShowGroupTreeButton = False
rptViewer.ReportSource = rptDocument
myDB.DisConnect()
End If