操作符丢失问题

编写代码老提示操作符丢失 提示rs1.Open strSQL1, cn, 1, 1 这一行有错
但是找不出原因，请高手看看

  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\更新记录.mdb;"
   
  If righ = "1日210" Then '每月1日凌晨删除记录

  cn.Execute ("delete from 本地1")
   
'h1 = Mid(t, k + 1)
'Text1.Text = righ
   
   
  ElseIf 5 <= kk1 And kk1 <= 9 Then ' NO.1判断
   
  strSQL1 = "select * from 本地1 where 5-9时= '" & w1 & "'"
   
  rs1.Open strSQL1, cn, 1, 1
  If rs1.RecordCount > 0 Then '根据关键字查找数据库是否有该记录,如果有
  rs1.Close
  Set rs1 = Nothing
  Else
  cn.Execute "insert into 本地1 (5-9时) Values( '" & w1 & " ')"
  End If
  End If

数据库字段设计有问题，5-9时本身作为字段名称，本身就不合理，数据库会做 5-9 看待，如果非得这样做，所有涉及这样的字段，都要用[] 围起来