我在ACCESS中链接了SQL-SERVEL数据，出现了这样的问题？如何解决！

cangqiong

运行时错误‘3622’



当访问一个带有IDENTITY列的SQL Server 表时，必须用OpenDatabase 的dbSeeChanges选项。

(下面是引用别人的话)请问怎么解决这个问题?

------------------------------------------------------------------------------------------

vb代码窗口，工具菜单，第一项，“引用”，去掉DAO，引用ADO即Microsoft ActiveX Data Objects 2.x。不要再用DAO去连SQL Server了，给自己白白添麻烦。这段话是ScarySkuly说的

--------------------------------------------------------------------------------------------

问题在于，我的VBA代码中有许多用DAO的，怎么才能改成ADO？

Dim str_database As Database
    Dim str_tables As DAO.Recordset
    Set str_database = CurrentDb
   
    Set str_tables = CurrentDb.OpenRecordset(str_sql_three)

str_tables.AddNew
    str_tables!EMPLOYEE_NO = emp_no

str_tables.Update
    str_tables.Close
    Set str_tables = Nothing

----------------------------------------------------------------------------------------------