代码运行之后提示语法错误（操作符丢失）

Private Sub changezhuanchu() '补录转出时间
Dim i As Integer
For i = 1 To 10
 If Me.Controls("txt_mz" & i) <> "" Or Not IsNull(Me.Controls("txt_mz" & i)) Or Me.Controls("txt_mz" & i) <> 0 Then
    Set ZMZ_con = CurrentProject.Connection
    ZMZ_sql = "select * from lblmzzljl where zrmz =" & Me.Controls("txt_mz" & i) & "ORDER BY mzzcrq DESC "
    ZMZ_rst.Open ZMZ_sql, CurrentProject.Connection, 1, 2
    If IsNull(ZMZ_rst("mzzcrq")) Then
'            ZMZ_rst.Edit
             ZMZ_rst.MoveFirst
                ZMZ_rst("mzzcrq") = Me.Controls("txt_data")
            ZMZ_rs.Update
     Else
     MsgBox "要修改的值为" & ZMZ_rst("mzzcrq")
     Exit Sub
     End If
     ZMZ_rst.Close             '关闭数据库
     ZMZ_con.Close             '关闭数据库连接
    Set ZMZ_rst = Nothing     '回收记录集对象变量 res的内存占用空间
    Set ZMZ_con = Nothing     '回收连接对象变量con的内存占用空间
  Else
  MsgBox "数据为空或未知错误，请联系作者QQ345182701"
  Exit Sub
  End If
 Next
End Sub