Reference the following :
* Crystal Report Viewer Control - C:\Program Files\Microsoft Visual Studio\VB98\crviewer.oca
*Crystal Report 8 ActiveX Designer Run Time Library - C:\Program Files\Seagate Software\Report Designer Component\craxdrt.dll
Add component :
Crystal Report Viewer Control - C:\Program Files\Microsoft Visual Studio\VB98\crviewer.oca
Some code:
Dim CrxApp As CRAXDRT.Application
Dim CrxRpt As CRAXDRT.Report
Dim NewReportName As String
Dim iCount As Integer
NewReportName = App.Path & "\" & sReport
On Error Resume Next
Set CrxApp = New CRAXDRT.Application
Set CrxRpt = CrxApp.OpenReport(NewReportName)
CrxRpt.Database.Tables(1).SetLogOnInfo strServer, strDB, "UserName", "Password"
'Make sure Crystal points to right database
CrxRpt.Database.Tables(1).Location = strDB
& ".dbo.TableName"
For iCount = 1 To CrxRpt.ParameterFields.Count
CrxRpt.ParameterFields
(iCount).ClearCurrentValueAndRange
If CrxRpt.ParameterFields(iCount).Name = "{?RunFrom}" Then
CrxRpt.ParameterFields(iCount).AddCurrentValue
DateValue
Else
CrxRpt.ParameterFields(iCount).AddCurrentValue
DateValue
End If
Next iCount
'Any data with report wiped
CrxRpt.DiscardSavedData
'Set Viewer control
crvPM.ReportSource = CrxRpt
ERR.Clear
'So that Crystal doesn't prompt with Parameter selection
CrxRpt.EnableParameterPrompting = False
crvPM.ViewReport
Hope this hepls.
Good luck!