Dichoso Select

[jorevale]

En una pantalla donde se captan datos (VB6/Access97) hay un control ADO, cuyo recordsource es:
darprimaryRS.RecordSource = "Select * from Tabla1"
...pero en determinado momento necesito hacer una selección (filtro) en esa misma pantalla para que muestre solo los resultados "Where Campo1='A'"...
...eso me sale bien, pues establezco la propiedad recordsource del ADO del modo siguiente:
darprimaryRS.RecordSource = "Select * from Tabla1 where Campo1='A'"
...pero luego necesito restaurar la consulta original!!!
y cuando le pongo de nuevo:
darprimaryRS.RecordSource = "Select * from Tabla1"
se me queda con el filtro, no lo quita.
No lo quita inclusive aunque le ponga antes:
darprimaryRS.RecordSource = ""

Podéis ayudarme?

Gracias