请大侠帮忙，microsoft Jet数据库引擎找不到输入表或查询

Question

代码如下：
Private Sub cboDep_Click()
Dim rsClass As New ADODB.RecordsetDim strSQL
If cboDep.ItemData(cboDep.ListIndex) = 0 Then
strSQL = "select * from Class"
Else
strSQL = "select * from Class where dept_id=" & cboDep.ItemData(cboDep.ListIndex)
End If
rsClass.Open strSQL, DataEnv.Con  '出错行cboClass.Clear
cboClass.AddItem "全部"
cboClass.ItemData(0) = 0
While Not DataEnv.rsClass.EOF
cboClass.AddItem rsClass("Name")
rsClass.MoveNext
Wend
cboClass.ListIndex = 0
rsClass.Close
Set rsClass = Nothing
End Sub

Answer 1

strSQL = "select * from Class where dept_id=" & cboDep.ItemData(cboDep.ListIndex)

rsClass.Open strSQL, DataEnv.Con
我怀疑DataEnv.Con所代表的数据库中没有class这个表，或者你拼写错误

Answer 2

strSQL = "select * from Class where dept_id=" & cboDep.ItemData(cboDep.ListIndex)这样改看看：strSQL = "select * from Class where dept_id='" & cboDep.ItemData(cboDep.ListIndex)&"'"