>>28
フラグとかで管理するのはだめ？

dim btrflg as boolean = false
dim bcmtflg as boolean = true
dim sSQL as string = ""
try
ｺﾈｸｼｮﾝ.BeginTransaction
btrflg = true

'SQLを実行
sSQL = "UPDATE ・・・"
if hoge.excute < 1 then
bcmtflg = false
end if

　 'SQLを実行
　 sSQL = "INSERT ・・・"
if hoge.excute < 1 then
bcmtflg = false
end if
catch
finally
if btrflg = true then
if bcmtflg = true then
hoge.Commit
else
hoge,Rollback
end if
end if
end try