Como quitar .filter a un recordset?

[gepd]

supongo que ésto podría ser una solución.

Código:

If Trim(txtBuscar) = "" Then
  if rsProd.State = 1 then rsProd.Close
  rsProd.Open="SELECT * FROM tabla"
Else

  mi_consulta = "nomProd like '" & "*" + Trim(txtBuscar) + "*" & "'"
  rsProd.Filter = mi_consulta
  DataGrid1.Enabled = True

End If

Saludos