Passing Parameters from VB to Crystal Reports

'make a module and write code or copy this

Public cr As New CRAXDRT.Application
Public rpt As CRAXDRT.Report

Sub OpenReportFile(FileName As String)
rptFile = FileName
fn= App.Path & "\Reports\" & rptFile & ".RPT"
Set rpt = cr.OpenReport(fn, 1)
rpt.DiscardSavedData
'rpt.GroupSelectionFormula = ""
'rpt.RecordSelectionFormula = ""
End Sub

 
Sub showReport()
 
For i = 1 To rpt.Database.Tables.Count
   'cr.LogOnServer
On Error Resume Next
rpt.Database.Tables(i).SetTableLocation App.Path & "\dbname.mdb", rpt.Database.Tables(i).Name, ""
   
'rpt.Database.AddOLEDBSource objConn, rpt.Database.Tables(i).Name
Next
'rpt.ReportTitle = ""
With frmReportsView.creport
.EnableAnimationCtrl = True
.EnableCloseButton = True
.EnableExportButton = True
.EnableNavigationControls = True
.EnableProgressControl = True
.EnableZoomControl = True

Do While .IsBusy              'ZOOM METHOD DOES NOT WORK WHILE
       DoEvents                          'REPORT IS LOADING, SO WE MUST PAUSE
Loop
   
.Zoom 1200
.ReportSource = rpt
.EnableRefreshButton = True
.ViewReport
End With
'frmReportsView.Caption = Reports.Text
frmReportsView.Show
'clean up
Set rtp = Nothing
Set cr = Nothing
End Sub

Sub setReportMultiRecords(parmName As String, parmSourceSQL As String, fldName As String, rptFile As String)
 

txt = App.Path & "\Reports\" & rptFile & ".RPT"
Set rpt = cr.OpenReport(txt, 1)

rpt.DiscardSavedData
'parm = Client_ID
Do Until rpt.ParameterFields.GetItemByName(parmName).NumberOfDefaultValues = 0
rpt.ParameterFields.GetItemByName(parmName).DeleteNthDefaultValue (1)
Loop
'Delete all the original parameter values from the parameter picklist.
'If you want to keep the orginal parameter values in the parameter picklist, comment out this loop.
Dim adoRs As New ADODB.Recordset
'Set adoRs.DataSource = objConn
Call adoRs.Open(parmSourceSQL, objConnection, adOpenDynamic, adLockBatchOptimistic)
'Create an ADO recordset that selects all fields from the Customer table.
adoRs.MoveFirst
'Move to the first record so you don't miss any records in the loop
Do Until adoRs.EOF = True
'Only loop until the end of the recordset
rpt.ParameterFields(2).AddDefaultValue adoRs.Fields(fldName).Value
'Add each value of the Customer ID field in our recordset to the parameters DEFAULT list
adoRs.MoveNext
'Move to the Next Record in our field
Loop
End Sub