求救: 怎样把这句话理顺过来???

骨干型

程序如下:请各位帮帮忙看看
Private Sub Refresh_Scores()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\成绩管理.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
Adodc1.ConnectionString = con
sql = "select 学生表.学号,学生表.姓名,成绩表.总评 from 成绩表,学生表,班级表 where 课程表.课程名称='" + Trim(DataCombo1.BoundText) + "'And 成绩表.学号=学生表.学号 And 学生表.班级编号=班级表.班级编号 And 班级表.班级名称='" + Trim(DataCombo2.BoundText) + "'  Order By 总评 Desc"
Adodc1.RecordSource = sql

Set myRs = con.Execute(sql)----------------------到这里就说至少一个参数未定义
s = myRs.Fields.Count
    Set DataGrid1.DataSource = myRs
    For i = 0 To s - 1
        DataGrid1.Columns(i).Alignment = dbgCenter
        DataGrid1.Columns(i).Width = 1000
    Next i
End Sub

Private Sub DataCombo1_Click(Area As Integer)
DataGrid1.SetFocus
Refresh_Scores
End Sub

Private Sub DataCombo2_Click(Area As Integer)
DataGrid1.SetFocus
Refresh_Scores
End Sub

kidsex

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

成绩管理.mdb

没有对应上

restajufehyg

在 sql="......" 下面加一行：
debug.print sql
看看SQL对不对

冰火之颠

from 成绩表,学生表,班级表 where 课程表.课程名称

就看到这里错误就很明显了，课程表  是从哪里冒出来的？？

你直接去access的查询里构建好了sql语句在用到程序里面去阿

骨干型

其实我的意思是想用DataCombo1和DataCombo2,其中DataComb1是用来显示课程名称,DataCombo2是来显示班级名称的,当选中这两个的时候在DataGrid1中就显示出我想要的结果,可是我绑定不了DataCombo,唉,好烦啊