Crystal Report - añadir sentencia SQL... CR 8.5

necesito saber como añadir una sentencia SQL a crystal reports 8.5 para que de esta forma pueda relacionar tablas y una funcion creada en mysql

necesito saber los pasos... en crystal report 10 realizaba los siguientes:

1 conexion base dato por ODBC
2 luego add command

y listo ....

me vi en la obligacion de cambiarme de version pero no se como lograr hacer esto que podia hacer en crystal reports 10.0 ....

saludos...

Bueno, por lo menos yo quisiera que te explicaras un poco mejor, desde donde lo estas invocando, vb6, vb2003, vb2005.

Entra a mi Blog
http://contenidodesarrollo.blogspot.com

Entra a mi Foro
http://kavallo.ka.funpic.org/

en visual basic 6 ... y crystal reports 8.5

eso de la consulta ya lo encontre pues debia hacer lo sig pasos:

1.- more data sources
2.- Active Data
3.- Active Data (ADO)
4.- Elijo la conexion ODBC (ADO)

y luego ingresar mi consulta en donde relaciono varias tablas con JOIN...
ahora me encuentro en otra situacion a ver si me pueden ayudar...
logro abrir el crviewer1 por codigo vb6 pero no se me muestran los datos...
mi codigo es el siguiente...

----------------------------------------------------------------------------------------------------
Dim CrxInfor As CRAXDRT.Report
Dim CrxApp As New CRAXDRT.Application

Private Sub Form_Load()
Form1.rs2.Open "SELECT lote_id FROM lote WHERE lote_nombre='" & agruparlotes.listalotes.Text & "'", Form1.conn, adOpenStatic, adLockOptimistic
idlote = Form1.rs2.Fields("lote_id")
Form1.rs2.Close

Form1.rs.Open "SELECT *,lote_nombre, marca_nombre, tiporeac_nombre, lotedetalle_id, descrip_equipo(reac_id) AS descripcion FROM reacondicionado JOIN lote_detalle USING (reac_id) LEFT JOIN reac_tipo USING (tiporeac_id) LEFT JOIN marcas USING (marca_id) JOIN lote USING (lote_id)", Form1.conn, adOpenStatic, adLockOptimistic

Set CrxInfor = CrxApp.OpenReport("c:\reportes\LotesCR85.rpt")
CrxInfor.DiscardSavedData
CrxInfor.Database.SetDataSource Form1.rs
CrxInfor.RecordSelectionFormula = "{ado.lote_id} =" & idlote

With CRViewer1
.ReportSource = CrxInfor
.EnableExportButton = True
.DisplayGroupTree = False
.EnablePopupMenu = False
.EnableDrillDown = False
.EnableSelectExpertButton = False
.ViewReport
.Zoom 100
End With

Screen.MousePointer = 0

Form1.rs.Close

End Sub

Private Sub Form_Resize()

With CRViewer1
.Width = Me.Width
.Height = Me.Height

End With

End Sub

-------------------------------------------------------------------------------------------------------

por favor ayudame...