溢出，急！！！！急！！！！

 '如果“fpxs”表为空，则XTong的值为False
        If Rs.RecordCount <= 0 Then
            XTong = False
        Else
        '在“fpxs”表查找是否存在与待保存的记录相同
            Rs.MoveFirst
            For iTemp = 0 To Rs.RecordCount - 1
                If (Rs("发票号") = Me![发票码]) Then
                    XTong = True
                    iTemp = Rs.RecordCount + 1
                Else
                    Rs.MoveNext
                End If
            Next iTemp

当“fpxs”表记录有50000条时，提示“溢出”