解决了Private Sub Command1_Click()x = 80Adodc1.RecordSource = "select 姓名 from 成绩表 where 课程成绩=" & xAdodc1.Refresh: Set MSHF1.DataSource = Adodc1End Sub