SoloCodigo

Fijate en esto que haye en el msdn, El reporte en crystal genera una secuencia en sql, puedes hacer algo como lo
siguiente


sql_Crystal =""
sql_Crystal = "Select Nombres, Apellidos "
sql_Crystal = sql_Crystal & "From Nombre, Apellido "

Anexo = "Where Apellidos like '" & letra & "%'"

sql_Crystal = sql_Crystal & Anexo
rpt.connect= tu cadena de conexion
rpt.reportfilename = tu ruta de acceso

rpt.sqlquery = sql_crystal
rpt.action =1

                Rpt2.Connect = Rpt_Conec
                Rpt2.ReportFileName = (App.Path &
"\Reportes\ContraRes_Estim.rpt")

                Sql = ""
                Sql = "SELECT"
                Sql = Sql & "Tbl_Cons_Estimado.Nb_Bosque,
Tbl_Cons_Estimado.N_Semana, "
                Sql = Sql & "Tbl_Cons_Estimado.Fecha_Mes,
Tbl_Cons_Estimado.Nb_Cliente, "
                Sql = Sql & "Tbl_Cons_Estimado.Producto,
Tbl_Cons_Estimado.Medida, "
                Sql = Sql & "Tbl_Cons_Estimado.Totales,
Tbl_Cons_Estimado.Contratista, "
                Sql = Sql & "Tbl_Cons_Estimado.Empresa "
                Sql = Sql & "From Tbl_Cons_Estimado_" & Usuario & "
Tbl_Cons_Estimado "
                Sql = Sql & "Order By Tbl_Cons_Estimado.Nb_Bosque ASC, "
                Sql = Sql & "Tbl_Cons_Estimado.Fecha_Mes ASC, "
                Sql = Sql & "Tbl_Cons_Estimado.N_Semana ASC, "
                Sql = Sql & "Tbl_Cons_Estimado.Producto ASC"

            Rpt2.SQLQuery = Sql
            Rpt2.PrintReport