Visual Basic - Problema con filtro de Datareport

Acudo a algun programador que pueda orientarme, mi problema es el siguiente:
Tengo un Datareport con su respectivo Dataenvironment el cual conecto a una CONSULTA en mi base de datos de access, al mostrarlo no me da ningun error, pero de ninguna manera hace caso a los filtros q pongo en el codigo, trate de dos maneras:

La primera:
If .rsCommand1.State <> 0 Then
.rsCommand1.Close
End If
DataEnvironment1.rsCommand1.Filter = "Dat= '" & ClaveUR & "'"
DataReport1.Show
La segunda:
If .rsCommand1.State <> 0 Then
.rsCommand1.Close
End If
CONSULTA="Select * from myTable where Dat= '" & ClaveUR & "'"
DataEnvironment1.Commands("Command1").CommandText = CONSULTA
DataReport1.Show
Y de ninguna manera me sale mi reporte con las condiciones que especifico, me deberia salir solo un registro de la base de datos y me regresa a todos los registros almacenados :(

Si alguien me puede orientar se lo agradeceria, no se si influye q la conexion es auna consulta y no a una tabla o algo asi??
Help! help