Crystal Report 10 and Visual Basic 6 - logon failed in crystal report viewe

Question

Guyz,.
Report viewer is showing logon failed, pelase help me, i can able to view the data from rs1(recorset).
please hellp me to fix this issue, i need to pass the sql query to my pre designed Crystal report which has all the field as same as SQL query.
Please suggest me if any other alternate way to do this , my code is below.
Environment : Crystal Report 10, Visual Basic 6
cr_preview -> CrystalActiveXReportViewer
RepName  -> Fiename and path of the Crystal report is designed from Crystal Report Designer.
Function show_rep(Sql As String, RepName As String)
Dim crystal As CRAXDRT.Application
Dim report As New CRAXDRT.report
Dim rs1 As New ADODB.Recordset
    If rs1.State Then rs1.Close
    rs1.Open Sql, cn, adOpenStatic, adLockReadOnly
    Set crystal = New CRAXDRT.Application
    Set report = crystal.OpenReport(RepName)
    report.DiscardSavedData
    report.Database.SetDataSource rs1
    'cr_preview.Refresh
    cr_preview.ReportSource = report
    cr_preview.Visible = True
    cr_preview.ViewReport
    Do While cr_preview.IsBusy
        DoEvents
    Loop
    cr_preview.Zoom 100
    If rs1.State Then rs1.Close
    Set rs1 = Nothing
Set crystal = Nothing
Set report = Nothing
End Function

Answer 1

Hi,
Please refer to the link for the list of example, [click here|http://pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&lngWId=1&B1=QuickSearch&txtCriteria=crystalreport+10&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE]
Regards,
Clint