为什么说关键字select附近有语法错误！

今天在做查询的时候出现了关键字select附近有语法错误！代码如下：Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Command1_Click()
'If (Combo1.Text = Combo1.List(0)) = True Then
    conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书管理;Data Source=JH"
    conn.Open
    rs.Open "select bookname from newbook where bookname ='" + Text1.Text + "'", conn, adOpenKeyset, adLockOptimistic, -1
    If rs.RecordCount > 0 Then
    Adodc1.RecordSource = "select bookname from newbook where bookname ='" + Text1.Text + "'"
    Set DataGrid1.DataSource = Adodc1
    'Adodc1.Refresh
    Else: MsgBox "没有该记录", 1 + 48, "提示" '把参数改成 & Chr(13) &
    rs.Close
    Exit Sub
    End If
    conn.Close
'End If
End Sub不知道哪里有错误，望高手指点！