Delete Query

I need Quickly to remove and to create anew search:

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

Beforehand thank.