操作符丢失问题

编写代码老提示操作符丢失    提示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