how to pass parameters when calling infostore report?

hi,
I have a crystal report that is based on Stored Procedure. in the beginnig the report was called from Enterprise infosotre and runs fine. now, I modified my SP and my report to except parameters but I don't know how to change that in the code. below is my code when calling the report without parameters:

VB Code:

Try
                If TypeOf Session.Item("CESession") Is Object Then
                ceSession = Session.Item("CESession")
                strReportName = "StudyReport"
                ceEnterpriseService = ceSession.GetService("", "InfoStore")
                ceInfoStore = New InfoStore(ceEnterpriseService)
 
                sQuery = "Select iD, NAME, SI_NAIL From OBJECTS Where SI_NAME = " & "'" & strReportName & "'"
 
                ceReports = ceInfoStore.Query(sQuery)
 
                If ceReports.ResultCount() <> 1 Then
                    Throw New Exception("The " & "'" & strReportName & "'" & " report cannot be found on the Crystal Enterprise Server")
                End If
 
                ceReport = ceReports(1)
                CRViewer.EnterpriseLogon = ceSession
                CRViewer.ReportSource = ceReport
                CRViewer.DisplayGroupTree = False
                CRViewer.DisplayToolbar = False
 
            Else
                CRViewer.Visible = False
                Throw New Exception("no Enterprise session available")
 
            End If
 
        Catch ex As Exception
            sMessage = ex.Message
            Response.Write(sMessage)
        End Try

my SP expects 4 parameters ProjID,StudyName,SubStudy,Eval
where and how can I set my parameters and pass it to the report?

thanks