[RESOLVED] recordset result on crystal

[wizkid]

Hi RobDog888,
please help me!!!
your code is working fine.
but my problem is..
i am not getting the select * from table query values on crystal.
i was already created the report newreport.rpt.it is a blank report.
and i want the query result when i press command9 button.
nearly from 3 weeks i working on this report
please give me some solution

Private Sub Command9_Click()
    Dim oreport As CRAXDRT.report
    Dim oapp As CRAXDRT.Application
    Dim oRs As Recordset
    Dim sSQL As String
 
    Set oRs = New Recordset
    Set oRs = db_conn.Execute("SELECT * FROM table")
    Set oapp = New CRAXDRT.Application
    Set oreport = oapp.OpenReport(App.Path & "\newreport.rpt", 1) 
 
    oreport.Database.SetDataSource oRs, 3, 1
 
    CRViewer91.ReportSource = oreport
    CRViewer91.ViewReport
End sub

thank u