在excel中更新Access表中的脱审年限

pbcwn2008

我想通过以下代码从excel中更新Access表中的“脱审年限”字段的值，但提示：update语句的语法错误!
特向高手求救！
Public Sub 更新脱审年限()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    mydata = ThisWorkbook.Path & "\myDATA.mdb"
    mytable = "发卡数据库"
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
    SQL = "update " & mytable _
        & " set 脱审时间=year(now())-year(最新合格日期)," '_
       Set rs = cnn.Execute(SQL)
    MsgBox "已经成功更新了脱审年限！", vbInformation + vbOKOnly
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

pbcwn2008

在线等待，呼叫高手帮忙！！！！！！

roych

原帖由 pbcwn2008 于 2011-1-5 22:47 发表
在线等待，呼叫高手帮忙！！！！！！

SQL语句要改为字段的噢。试试吧。
SQL = "UPDATE " & mytable & " SET [脱审时间] = Year(Now())-Year( [最新合格日期]) "

pbcwn2008

3楼的老师说的完全正确，万分感谢！！！！
哥们，你太给力了！
感谢Excelhome，感谢我的网上家园！