求限制A、B、C录入个数方法

Private Sub 保存_Click()
    Dim Rec As New ADODB.Recordset
    Dim ctl As Control
    Dim i

    For Each ctl In Me.Controls
    If ctl.ControlType = acComboBox Then
        If ctl.Name <> "姓名" And ctl = "A" Then i = i + 1
        If i > 2 Then GoTo Clear
        End If
    Next

    Rec.Open "SELECT * FROM 打分表 ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Rec.AddNew
    With Rec
        !语言表达能力 = Me.语言表达能力
        !学科 = Me.学科
        !班级 = Me.班级
        !教师姓名 = Me.姓名
        !专业能力 = Me.专业能力
        !教学态度 = Me.教学态度
        !课堂秩序维持 = Me.课堂秩序维持
        !对学生负责态度 = Me.对学生负责态度
        .Update
    End With
    MsgBox "数据已保存", vbInformation, "提示"  '

Clear:
    Me.专业能力 = Null
    Me.语言表达能力 = Null
    Me.教学态度 = Null
    Me.课堂秩序维持 = Null
    Me.对学生负责态度 = Null
    Me.姓名 = Null
    If i < 3 Then
        MsgBox "你输入的数据已录入系统"
        Me.姓名.Requery
        Else
        MsgBox "超出限制,请检查!"
    End If
End Sub