vb连接数据库查询问题

Public con As New ADODB.Connection
Dim rslog As New ADODB.Recordset

Private Sub Command1_Click()
Dim User1 As String
User1 = Text1.Text
If rslog.State = 1 Then rslog.Close
If Option1.Value = True Then
rslog.Open "select * from student there 姓名= '" + User1 + "'", con, 1, 3
Else
rslog.Open "select * from student there 姓名 like '" + User1 + "%'", con, 1, 3
End If
Set DataGrid1.DataSource = rslog
End Sub

Private Sub Command2_Click()
If rslog.State = 1 Then rslog.Close
rslog.Open "student", con, 1, 3
Set DataGrid1.DataSource = rslog
End Sub

Private Sub Form_Load()
rslog.Open "student", con, 1, 3
Set DataGrid1.DataSource = rslog
End Sub

我点确定查询的时候说我出错误。说姓名那里有错误。我没找到。 请帮忙看看。。

rslog.Open "select * from student where 姓名= '" + User1 + "'", con, 1, 3
Else
rslog.Open "select * from student where 姓名 like '" + User1 + "%'", con, 1, 3

where打错了