求助“from 子句语法错误”

以下是部分代码
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from stu_info where 学号='" & Text8 & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
With Adodc1.Recordset
Text1 = .Fields("姓名")
Text2 = .Fields("学号")
Text3 = .Fields("地址")
Text4 = .Fields("QQ")
Text5 = .Fields("性别")
Text6 = .Fields("生日")
Text7 = .Fields("电话")
End With
Else
MsgBox "你输入的学号有误", vbOKOnly, "出错了"
End If
End Sub
运行时总是提示from子句语法错误，对象refresh的方法adodc1失败，求大神赐教