Set myRs = con.Execute(sql)----------------------到这里就说至少一个参数未定义
可能是
sql = "select 学生表.学号,学生表.姓名,成绩表.总评 from 成绩表,学生表,班级表 where 课程表.课程名称='" + Trim(DataCombo1.BoundText) + "'And 成绩表.学号=学生表.学号 And 学生表.班级编号=班级表.班级编号 And 班级表.班级名称='" + Trim(DataCombo2.BoundText) + "' Order By 总评 Desc"
与你的成绩管理.mdb没有对应上
可能是
sql = "select 学生表.学号,学生表.姓名,成绩表.总评 from 成绩表,学生表,班级表 where 课程表.课程名称='" + Trim(DataCombo1.BoundText) + "'And 成绩表.学号=学生表.学号 And 学生表.班级编号=班级表.班级编号 And 班级表.班级名称='" + Trim(DataCombo2.BoundText) + "' Order By 总评 Desc"
与你的成绩管理.mdb没有对应上
debug.print sql
看看SQL对不对