请教关于 BeginTrans 的用法！！！在线等！

pangz

请教关于 BeginTrans 的用法！！！在线等！



我正在升级一个Access97程序到access2000，如下关于 BeginTrans 代码无法通过，请执教   

    Dim grn_db As DAO.Database
    Dim grn_hd As Recordset, grn_temp As DAO.Recordset, grn_dt As DAO.Recordset
   
    Set grn_db = DBEngine.Workspaces(0).Databases(0)
    Set grn_hd = grn_db.OpenRecordset("T23", DB_OPEN_DYNASET)
    Set grn_temp = grn_db.OpenRecordset("T47", DB_OPEN_DYNASET)
    Set grn_dt = grn_db.OpenRecordset("T24", DB_OPEN_DYNASET)
   
'BeginTrans在access 2000中出错

   grn_db.BeginTrans       'access97原有代码，在access97中正常运行

'如果改为如下命令，则不出错，但不知道BeginTrans 是否有效！！

    BeginTrans              'Access2000  only try by bp not get anyconfirm here


请指教！！！！

pangz

ding 1 ding!