过程声名与同名事件或过程描述不匹配？？？

Question

Private Sub Combo1_Click(Index As Integer)
 Dim objRecordset As ADODB.Recordset
    
    If Index = 0 Then
        strSQL = "select DISTINCT classid(班级编号) from tb_classinfo(班级信息表) where gradeid(年级编号)='" & Trim(Combo1.Text) & "'"
        Set objRecordset = ExecuteSQL(strSQL)
        If objRecordset.EOF = True Then
           Combo2.Text = ""
            Combo3.Text = ""
            Exit Sub
        End If
        Combo2.Clear
        objRecordset.MoveFirst
        '将班级信息显示到控件中
        Do Until objRecordset.EOF
            Combo2.AddItem objRecordset.Fields(0)
            objRecordset.MoveNext
        Loop
        Combo2.ListIndex = 0
    End If
    Set objRecordset = Nothing
    flgScores.Clear
    ShowScores
End Sub

Answer 1

& Trim(Combo1（Index）.Text) & "'"

Answer 2

Private Sub Combo1_Click()
假如你的combo1不是控件数组，就这样。