VB数据库问题

Question

小弟最近在学习VB，想做一个学生信息管理系统，按照《Visual Basic 程序设计实验与实践指导》那本书 的例子做了，但是有个地方的错误不知道怎么改的：Private Sub Form_Load()
  strClg = adoClg.Recordset.Fields("D_ID")
  adoClass.RecordSource = " SELECT DISTINCT Cl_Name FROM st_info WHERE  " _
          "SUBSTRING(St_Id,1,2)='" & strClg & "'"
  adoClass.Refresh
  strClass = ""
  If Not adoClass.Recordset.EOF Then
    strClass = adoClass.Recordset.Fields("Cl_Name")
  End If
  adoName.RecordSource = "SELECT * FROM St_Info WHERE Cl_Name='" & strClass & "'"
  adoName.Refresh
End Sub 
程序的第3行~5行，改来改去老是出错，请求高手指导！

Answer 1

WHERE " _
  "SUBSTRING(St_Id,1,2)='" & strClg & "'"
多一个 "
再试试WHERE  SUBSTRING(St_Id,1,2)='" & strClg & "'"

Answer 2

破书又印错了吧？  adoClass.RecordSource = "SELECT DISTINCT Cl_Name FROM st_info WHERE " & _
  "SUBSTRING(St_Id,1,2)='" & strClg & "'"