Question

有关select语句中使用变量的问题(在线等)

编一段代码显示得奖学金的人的名单，结果报错，代码如下：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + App.Path + "\学生信息管理.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 学生信息.学号,姓名,系,选课信息.课程号,成绩,学年 from 学生信息,选课信息 where 学生信息.学号=选课信息.学号"
Adodc1.Refresh
End Sub

Private Sub option1_Click()
Dim i As String
i = InputBox$("请输入奖学金获奖人数")
Adodc1.RecordSource = "select Top '&i&' 学号,Avg(成绩) As 平均成绩 From 选课信息 Group by 学号 order by avg(成绩) desc"
Adodc1.Refresh
End Sub
错误显示select子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确

请问哪里错了？怎么改？？
1L的。。。。还不对呀，说缺少表达式这次

Answer 1

select Top '&i&'
改为：
"select top " & i & " 学号,Avg(成绩) As 平均成绩 From 选课信息 Group by 学号 order by avg(成绩) desc"