原文章链接  如果出错这个错误 然而却又很多要改 不如自己定义个dao 函数批量替换 

Access运行时错误'3622':当访问一个带有IDENTITY列的SQL Server表时,必须使用Openrecordset的dbSeeChanges选项。的解决方法[Access软件网] http://www.accessoft.com/article-show.asp?id=10840

定义函数：

Public Function GetDaoRs(ByVal StrQuery) As Object
on error goto  GetDaoRS_Error
Dim Rst As Object
Dim db As Object
Set db = CurrentDb
Set Rst = db.OpenRecordset(StrQuery, dbOpenDynaset, dbSeeChanges, dbOptimistic)
Set GetDaoRs = Rst
GetDaoRS_Exit:
    Set Rst = Nothing
    Set db = Nothing
    Exit Function
GetDaoRS_Error:
    MsgBox (Err.Description)
    Resume GetDaoRS_Exit
End Function