Llenar un reporte

[pindyortiz]

El siguiente codigo funciona bien para mostrar un reporte...

01- Data1.RecordSource = "Select * from [articulos] order by [codigo_art]"
02- Data1.Refresh
03- If Data1.Recordset.RecordCount = 0 Then
04- MsgBox "No se encontraron datos", vbExclamation + vbOKOnly, "Aviso"
05- Screen.MousePointer = vbDefault
06- Exit Sub
07- End If
08- Set crReport = crApp.OpenReport("D:\Report\lispreplaxcod.rpt")
09- crReport.DiscardSavedData
10- crReport.Database.SetDataSource Data1.Recordset

...pero cuando cambio la linea 01 por la siguiente el reporte se muestra vacio, porque puede ser que no se llena el reporte con datos?

01- Data1.RecordSource = "Select * from [articulos] Where [Movimiento]= " & UltMov & " order by [Movimiento]"