Displaying Crystal Report in VB6.0

Dim Report As New CrystalReport1
Public CrxApplication As New CRAXDRT.Application
Public CrxReport As New CRAXDRT.Report
Public CrxPara As New CRAXDRT.ParameterValues
Dim cpars As CRAXDRT.ParameterFieldDefinitions
Dim cpar As CRAXDRT.ParameterFieldDefinition

Private Sub Form_Activate()

Set CrxReport = CrxApplication.OpenReport(App.Path & "\payslip.rpt", 0)
CrxReport.Database.LogOnServer "p2ssql.dll", "server", "db", "userid", "Password"
CrxReport.Database.Tables(1).ConnectionProperties.Item("password") = "Password"
CrxReport.ParameterFields.GetItemByName("@employeeid").AddCurrentValue CStr(frmpayslip.str)
CrxReport.ParameterFields.GetItemByName("@month").AddCurrentValue CInt(frmpayslip.cmbMonth.ItemData(frmpayslip.cmbMonth.ListIndex))
CrxReport.ParameterFields.GetItemByName("@year").AddCurrentValue CInt(frmpayslip.cmbYear.Text)

Crppayslipdata.ReportSource = CrxReport
Crppayslipdata.ViewReport

Crppayslipdata.Visible = True
CrxReport.EnableParameterPrompting = True
End Sub