if not rst.eof then
‘可循环读出记录集
do until rs.eof
····
rst.movenext
loop
else
msgbox "没有找到相关信息!",0,"信息提示"enfifWorkspace.BeginTrans
Workspace.CommitTrans
‘可循环读出记录集
do until rs.eof
····
rst.movenext
loop
else
msgbox "没有找到相关信息!",0,"信息提示"enfifWorkspace.BeginTrans
Workspace.CommitTrans
2。Workspace(0).BeginTrans
Workspace(0).CommitTrans
or Workspace(0).Rollback