I need Quickly to remove and to create anew search:

For example:
DoCmd.DeleteObject acQuery, "S0"
and Then
Set qdf = dbs.CreateQueryDef("S0&#34
But It very long occurs.

Beforehand thank.