One way is to add a control to the footer of the subform to count the records. Its RecordSource would be:
=Count(*)
Assuming you named that control - txtRecCount, then you would reference it as:
Me.txtSubRecCount = Me.sfrmYourSubform.Form!rxtRecCount