You can use the On error handler for trapping when record count is 0, try this following command:

Private sub RecordSet_Checker()
On Error goto ErrHand:
MyData.RecordSet.MoveLast
MyRecordCount=MyData.RecordSet.Reccount
Exit Sub
ErrHand:
Select Case Err.Number
Case 3021
Message "No record found"
Resume Next
End Select
End Sub