vb 中怎么创建sql sever事务，导入一个表数据时，其他表自动插入记录？

Question

con5.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=true;DRIVER=SQL Server;SERVER=   
(local);UID=sa;APP=Visual Basic;WSID=20100910-1506;Initial Catalog=" & kk & ""con5.Opencn1 = "insert into bmb(kh,xm) select " & Trim(Combo1.Text) & "," & Trim(Combo2.Text) & " from OPENROWSET('MSDASQL.1','Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=" & ss & " ','select * from " & CommonDialog1.FileTitle & "')"con5.Execute (cn1)怎么继续写事务，把其他表中记录也都完成？？？而且需要回滚检查，锁定

Answer 1

private sub command1_click()
on error goto errhandle
    con5.begintrans   '开始事务
    con5.execute "insert into ..."
    con5.execute "update ..."
    con5.execute "delete from ..."
    con5.committrans  '提交事务
    msgbox "操作完成！",vbokonly,"提示"
    exit sub
'错误，回滚事务
ErrHandle:
    con5.rollbacktrans   '回滚事务
     msgbox "操作失败,错误原因为：" & err.description,vbexclamation,"提示"
    exit sub
end sub