まあまて、>>277にnewと例外処理を加えよう

Sub C()
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

よし。これでOKだ