Clear button on a search form partially working

[Vetgeorge]

I have a "Clear" button on a search form that only clears the search fields on the main form. I would like it to also clear the query results I have as a subform on this form and return it to it's original state.
What do I need to change?

The search form is used to look up medical names and codes based upon five categories: Disease, Etiology, Morphology, Procedure & Topography. The search fields can be used singly or have entries in each field and the query updates to find your search parameters. It works except for my clear button.

Tables:
tblCategory
tblSNOMED

Forms:
frmSearch - Main form
qrySearchsubform - subform

Queries:
qrySearch - query

Here is the code:

Private Sub SearchButton_Click()


Me.qrySearchsubform.Requery
End Sub

Private Sub ClearButton_Click()
Dim Ctl As Control
On Error Resume Next
For Each Ctl In Me.Controls
Ctl.Value = Null
Next Ctl
End Sub

[Vetgeorge]

I think I have it figured out:
I made this change (in red):

Private Sub SearchButton_Click()
Me.qrySearchsubform.Requery
End Sub

Private Sub ClearButton_Click()
Dim Ctl As Control
On Error Resume Next
For Each Ctl In Me.Controls
Ctl.Value = Null
Me.qrySearchsubform.Requery
Next Ctl
End Sub

Now my subform (query) resets itself. But, I am sure I have extra lines in this code that are unnecessary, what can I remove? I am an amateur with vb codes and I cobbled it together from reading different posts and looking at examples, forgive me please

[RuralGuy]

See if this link offers some insight: http://access.mvps.org/access/forms/frm0031.htm