Crystal REPORT NOOOO !!!!! MALDITOS FILTROS!!!! HELP MEEEE!!!!

[kail521]

HOLA AMIGO, ESTO DESESPERADO NECESITO HACER UN FILTRO PERO AUNQUE EXISTA NO APARECE EN EL REPORTE ESTE ES MI CODIGO POR FAVOR ESPERO SU AYUDA... DE ANTEMANO MUCHAS GRACIAS

Dim data2 As New SqlDataAdapter, reporte2 As New CrystalReport2
Dim d_set2 As New DataSet
d_set2.Clear()
data2.SelectCommand = New SqlCommand("(SELECT pedidos.codigo,pedidos.numeroauto,convert(varchar( 10), pedidos.fecha ,103) as fecha,servicios.nombre_servicio,clientesconvenio.n ombre,pedidos.valor FROM pedidos,servicios,clientesconvenio WHERE pedidos.tiposervicio=servicios.codigo and pedidos.nomempresa=clientesconvenio.numero)UNION(S ELECT pedidosotros.codigo,pedidosotros.numeroauto,conver t(varchar(10), pedidosotros.fecha ,103) as fecha,servicios.nombre_servicio,clientesconvenio.n ombre,pedidosotros.valor FROM pedidosotros,servicios,clientesconvenio WHERE pedidosotros.tiposervicio=servicios.codigo and pedidosotros.nomempresa=clientesconvenio.numero)", conn)
data2.Fill(d_set2, "pedidos")

reporte2.SetDataSource(d_set2)

pedidos.CrystalReportViewer1.ReportSource = reporte2
reporte2.RecordSelectionFormula = "{comando.numeroauto} = 2 and {comando.nombre}='" & checkempresa.Text & "' and {comando.fecha} >= '" & Me.fecha_clientes1.Value.Date & "' and {comando.fecha} <= '" & Me.fecha_clientes2.Value.Date & "' and {comando.nombre_servicio} = '" & Me.cboservicio.Text & "'"
pedidos.Show()