tengo un problema al imprimir DataReport

yothamons
12 de Agosto del 2004
tengo el siguiente codigo para imprimir, la primera vez que se ejecuta muestra normalmente el reporte y lo imprimo, pero la segunda vez no muestra nada, que sera?
como se puede ver en el codigo selecciono todos los campos de la tabla detalle_encomienda y la filtro por el nro de encomienda, creo una variable filtro para filtrar el reporte, si el recount > 0 entonces muestro el reporte.

S = "SELECT * FROM detalle_encomienda where nro_enco= " & nro & ""
filtro = "nro_enco= " & nro & ""
Data1.RecordSource = S
Data1.Refresh
With Data1.Recordset
If .RecordCount > 0 Then
DataEnvironment1.rsencomienda.Filter = filtro
DataReport1.Show
Command1.Enabled = False
End If
End With