Crystal Report - Urgente Pasar Sentencia SQL - a Crystal report

Desarrollo en vb6.0 y cr 9.0 Hola tengo 02 formularios frmaplicación y frmreporte como hago la conección a mi bas de datos en acces y envío la siguiente sentencia sql al crystal
SQL="select * from tabla1"
donde hago la programación en frmaplicacion o frmreporte
ayudame por favor es urgente. si pueden enviarme un ejemplo mi email es [email protected]

Gracias

facil, agrega un control "Crystal Reports" en las referencias, supongamos que se llama "Reporte1", este ejemplo hasta le pasa hasta formulas de texto para imprimir en el reporte.... (obviamente tu query es mas sencilla que esta, pero es lo mismo)

With Reporte1

consulta = ""

'El nombre de mi reporte:
.ReportFileName = CurDir + "ReportesRepFacXCliente.rpt"
'Los parámetros a imprimir en las formulas del reporte:
.Formulas(0) = "Fini='" & Format(dtFechaIni.Value, "dd/mm/yyyy") & "'"
.Formulas(1) = "Ffin='" & Format(dtFechaFin.Value, "dd/mm/yyyy") & "'"

consulta = "SELECT * " & _
"FROM CLIENTE_CREDITO " & _
"INNER JOIN credito_maestro_factura " & _
"ON CLIENTE_CREDITO.CodigoCliente = credito_maestro_factura.codcliente " & _
"INNER JOIN credito_detalle_factura " & _
"ON credito_maestro_factura.serie = credito_detalle_factura.serie " & _
"AND credito_maestro_factura.numero = credito_detalle_factura.numero " & _
"WHERE credito_maestro_factura.fecha >= '" & Format(dtFechaIni.Value, "dd-mm-yyyy") & _
"' and credito_maestro_factura.fecha <= '" & Format(dtFechaFin.Value, "dd-mm-yyyy") & "'"


'Lanzo el parametro de ordenamiento para completar la consulta al reporte
consulta = consulta + " ORDER BY cliente_credito.codigocliente"
.SQLQuery = consulta
.Action = 1
End With

Muchas gracias amiguito,,, pero ahora tengo un problemas, cuando se ejecuta la consulta, el icono del puntero cambia a l de relojito y siempre esta asi, como si sioguiera procesando, ayudame por favor

hola, facil....

desde visual basic....

sobre el form....
'Esto pone el puntero normal, es decir, la flechita
Me.MousePointer = 0

'Este pone el puntero del mouse con el relojito, es decir, como si estuviera en espera...
Me.MousePointer = 11


espero te sirva....

salu2 desde guatemala...

marvin