If 时间 = 1 Or 时间 = 2 Or 时间 = 3 Or 时间 = 4 Or 时间 = 5 Or 时间 = 6 Or 时间 = 7 Or 时间 = 8 Or 时间 = 9 Or 时间 = 10 Or 时间 = 11 Or 时间 = 12 Then
    If (时间 < 服务器月 And 时间 >= 服务器月 - 1) Or (时间 = 12 And 服务器月 = 1) Then
        核对日期 = 服务器年 & "-" & 时间 & "-" & "1"
        单号 = DataGrid1.Columns("订单编号").Value
        If MsgBox("你确定已经完成对【" & Trim(单号) & "】对账，账目进入月份为" & 服务器年 & "." & 时间 & "月吗？", vbYesNo, "提示信息") = vbYes Then
            sql3 = "update 财务应收 set 入账日期 ='" & 核对日期 & "' where 订单编号='" & 单号 & "'"
            cn.Open strCn
            rs.Open sql3, cn
            cn.Close
            MsgBox "已经完成【" & Trim(单号) & "】对账，账目进入月份为" & 服务器年 & "." & 时间 & "月", vbOKOnly, "提示信息"
            Cancel = True
            Adodc1.Refresh
            Adodc1.Recordset.MoveFirst
            Call 单号金额对账初始化列宽修改限制
        Else
            Cancel = True
            Exit Sub
        End If
    Else
        MsgBox "对不起，你所填写的对账日期超过了对账月份的限制！" & Chr(13) & "这个月只能入上个月的账目，无法人其他时间账目。", vbOKOnly, "错误提示"
        Cancel = True
        Exit Sub
    End If
Else
    MsgBox "1年中只有12个月！请重新输入", vbOKOnly, "错误提示"
    Cancel = True
End If
上述代码标识为蓝色，有语法错误，单我有不知道错在哪里，还在大师指点！谢谢！

应该是无法识别你的Cancel是什么意思，你用的是vbYesNo,也应该是vbNo=true,反正你提示按钮就是确认和取消，用下面代码就行了
        Else
            Exit Sub
        End If
这样就可以了，如果还有问题，把你运行后提示的错误贴上来

语法错误
你应该贴整个Sub