关于超出项的的问题？

fxtest

一点通：

　　Private Sub Form_Current()
Dim rs As Recordset
Dim a As Integer

Set rs = Me.Recordset

a = rs.RecordCount

If a < 8 Then
    Me.AllowAdditions = True
Else
    Me.AllowAdditions = False
  MsgBox "多余8项"
End If
End Sub

上面的老是出错，是那里出错了？还有简单的吗？

一点通

请上传例子

fxtest

这句子有些窗体能用，有些不能用啊！！头痛啊！