>>208
ABC理論だとこんなに簡潔にできる。敗北を知りたい。はい論破。

Sub A()
　　Dim objConnection As ADODB.Connection
　　Set objConnection = New ADODB.Connection
　　Call B(objConnection)
　　If objConnection.State <> ADODB.adStateClosed Then
　　　　Call objConnection.Close
　　End If
End Sub

Sub B(ByVal objConnection As ADODB.Connection)
　　On Error Resume Next
　　Call C(objConnection)
　　If Err.Number <> 0 Then
　　　　If objConnection.State = ADODB.adStateClosed Then
　　　　　　Call objConnection.RollbackTrans
　　　　End If
　　End If
End Sub

Sub C(ByVal objConnection As ADODB.Connection)
　　Call objConnection.Open
　　Call objConnection.BeginTrans
　　Call objConnection.CommitTrans
End Sub