SoloCodigo

Por favor si alquien me puede ayudar con este inconveniente. Utilizo Vb6.0 con CR 8.5 y desde la aplicacion necesito enviarle la instruccion que me selecione los N articulos mas vendidos.

Este es mi codigo:

Dim Report As New CrystalReport1
Screen.MousePointer = vbHourglass
Dim i As Integer
Report.DiscardSavedData 'Dejar en blanco el reporte
For i = 1 To Report.Database.Tables.Count Step 1
    Report.Database.Tables(i).SetLogOnInfo "Intl_Server", "Intl", "dba", "netmaster" 'Abre la bd con los parametros necesarios
Next i

'aqui quiero enviar la sentencia que me seleccione los 10 articulos mas vendidos. Como hago esto????
SQL = "SELECT TOP 10 VENTAARTICULOS ORDER BY CANTIDAD DESC"

'Report.SQLQueryString = SQL 'se envia la sentencia al Crystal Report
Creport.CRViewer1.ReportSource = Report
Creport.CRViewer1.ViewReport
Creport.CRViewer1.Zoom (100)
Screen.MousePointer = vbDefault
Creport.Show
load Me

Desde ya muchas gracias