神哪救救我吧！这个错误到底怎么解决啊

Dim ss(12) As String
Dim usetime As String
Dim sql As String
 Dim cn As ADODB.Connection
          Set cn = New ADODB.Connection
          Set rs = New ADODB.Recordset
          usetime = "2006-7-15"
          cn.Open "PROVIDER=microsoft.jet.oledb.4.0;data source=" & App.path & "\测量数据.mdb;Persist Security Info=False"
          
          sql = "SELECT   *   FROM 表8  where   ID=534 And 日期＝  '" & usetime & " '"                   '
          rs.Open sql, cn
          
          For i = 1 To 10
          ss(i) = rs.Fields(i - 1)
          Next i
          
          cn.Close运行时，运行到 语句rs.Open sql, cn时，提示错误说：语法错误（操作符丢失）在查询表达式'ID=534 And 日期＝  '2006-7-15''中。
我是初学者，求各位大侠指点迷津了！