VB数据库问题

小弟最近在学习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行，改来改去老是出错，请求高手指导！

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