Why is it the query doesnt work

[psychofoo]

Dim oapp As CRAXDRT.Application
    Dim oreport As CRAXDRT.Report
    Dim oRs As Recordset
    Dim sSQL As String
 
    Set oRs = New Recordset
    Set oRs = connect.Execute("SELECT * FROM tCommission where contno like '" & NContNo & "'")
    Set oapp = New CRAXDRT.Application
    Set oreport = oapp.OpenReport(App.Path & "\report1.rpt", 1) '\rptCommission
    oreport.Database.SetDataSource oRs, 3, 1
    RptCommission.ReportSource = oreport
    RptCommission.ViewReport

it always display the first record in the table.. help pls...