CleanUp はMyConnectionクラスのTerminateでやればいいか。

Sub Foo()
On Error Goto ErrHandler
　　Dim objConnection As MyConnection
　　Set objConnection = New MyConnection

　　Call objConnection.Open
　　Call objConnection.BeginTrans
　　Call objConnection.CommitTrans

　　Exit Sub
ErrHandler:
　　ErrorLog(Err)
End Sub