第一行：
rst.Open "select b.课程表, b.学分, a.成绩 from 成绩表 a, 课程表 b, _
第二行：
学生表 c where a.学号 = c.学号 and a.课程号 = b.课程号 and _
第三行：
a.成绩 > = 60 and c.学号 = " & xh, cn
參考答案:不明白什么问题。但明显缺少双引号来封闭字符串
第一行：
rst.Open "select b.课程表, b.学分, a.成绩 from 成绩表 a, 课程表 b, " _
第二行：
"学生表 c where a.学号 = c.学号 and a.课程号 = b.课程号 and " _
第三行：
"a.成绩 > = 60 and c.学号 = " & xh, cn