Visual Basic - Filtrar registros para un Datareport

que tal necesito que alguien me ayude con algún ejemplo, guia o lo que sea para poder filtrar la impresión de un reporte.

Muchas gracias

A ver si esto te sirve
en un comando meto un select
luego este commando lo vinculo al data report mediante el datasource
y al final relaciono cada uno de los casilleros que se encuantran en el datareport (Seccion detalles) a los campos del select
espero te sirva

Dim CmdReporte As ADODB.Command

Set CmdReporte = New ADODB.Command
CmdReporte.ActiveConnection = CN
CmdReporte.CommandType = adCmdText
CmdReporte.CommandText = " Select CA_1,CA_2,CA_3,CA_4,CA_5,CA_6,CA_7,CA_8,CA_9,CA_10 " _
& " From IMPR Where de_tmp='" & Usuario & "' Order By Fi_Fila Asc"

CmdReporte.CommandTimeout = 0

Set DR_RECLA.DataSource = CmdReporte.Execute

DR_RECLA.Sections("CABECERA").Controls("EGRUPO").Caption = "GRUPO :" & Trim(LbGrupo)

DR_RECLA.Sections("CABECERA").Controls("ECPIA").Caption = "Empresa : " & Trim(LbCpia)

DR_RECLA.Sections("DETALLES").Controls("txt1").DataField = "CA_1"
DR_RECLA.Sections("DETALLES").Controls("txt2").DataField = "CA_2"
DR_RECLA.Sections("DETALLES").Controls("txt3").DataField = "CA_3"
DR_RECLA.Sections("DETALLES").Controls("Txt4").DataField = "CA_4"
DR_RECLA.Sections("DETALLES").Controls("Txt5").DataField = "CA_5"
DR_RECLA.Sections("DETALLES").Controls("Txt6").DataField = "CA_6"
DR_RECLA.Sections("DETALLES").Controls("Txt7").DataField = "CA_7"
DR_RECLA.Sections("DETALLES").Controls("Txt8").DataField = "CA_8"
DR_RECLA.Sections("DETALLES").Controls("Txt9").DataField = "CA_9"
DR_RECLA.Sections("DETALLES").Controls("Txt10").DataField = "CA_10"

Screen.MousePointer = 1
DR_RECLA.Show vbModal

Set DR_RECLA = Nothing
Set CmdReporte = Nothing