无法对数据库进行操作？？？？？

Question

我用Access作为数据库，使用数据环境，使用以下语句后无法操作数据库，它说我缺少函数或变量。
If DataEnv.rsStudent.Open Then
  DataEnv.rsStudent.Close
 End If
 DataEnv.rsStudent.Open "select * " & strSQL
请问我该怎么办？

Answer 1

dim rsStudent As New ADODB.Recordset
dim strSQL as String
strSQL="select * from " & tableNameif rsStudent.State=adStateOpen Then rsStudent.Close
rs.CursorLocation = adUseClient
rs.Open strsql, cn, adOpenStatic, adLockOptimistic

Answer 2

Sorry,最后两个rs应该是rsStudent

Answer 3

整个程序段是这样的
Private Sub cmdShow_Click()
'针对所选的班级,列出班级中所有的学籍信息
  Dim rsStudent As New ADODB.Recordset
  Dim rssqlSeek As New ADODB.Recordset
  Dim strSQL As String
   If cboDepartment.Text = "全部" Then
     strSQL = "select * from Student order by Serial"
  Else
     If cboClass.Text = "全部" Then
       strSQL = "select id from Department where Department.Name=cboDepartment.text"
       strSQL = "select id from Class where Class.dept_id='" & strSQL & "'"
       strSQL = "from Student where Student.Class='" & strSQL & "'order by Serial"
     Else
        strSQL = "select id from Department where Department.Name=cboDepartment.text"
        strSQL = "select id from Class where Class.dept_id='" & strSQL & "' and Class.Name=cboClass.text"
        strSQL = "from Student where Student.Class='" & strSQL & "'order by Serial"
    End If
 End If
  If rsStudent.State = adStateOpen Then rsStudent.Close
 
 
 rsStudent.Open "select * " & strSQL
 
 If rssqlSeek.State = adStateOpen Then rssqlSeek.Close
 
rssqlSeek.Open "select Serial,Name" & strSQL
 
 '刷新用户导航的网络控件，并且根据记录集中记录的数目，来改变各个浏览按钮的状态
 Call RefreshGrid
 Call ChangeBrowseState
 
 Call grdStudent_Change
End Sub
现在又出现了新错误，它说连接无法用于此操作，在此上下文中它可能已经被关闭。
我要怎么改？？？？