'----- start of function code -----
Public Function LimitRecords( _
                    frm As Access.Form, _
                    Optional RecLimit As Integer = 1)

    ' Limit the number of records in the form passed as 
    ' to no more than the number specified by .

    With frm.RecordsetClone
        If .RecordCount <> 0 Then .MoveLast
        frm.AllowAdditions = (.RecordCount < RecLimit)
    End With

End Function
'----- end of function code -----