>>207
データベースの処理は検索、挿入、削除くらいなんだから
同じようなコードを書くといってもせいぜい3つだろ。
あとは細かい部分を専用オブジェクトを作るなりして処理すればいいだろ。
こんなんで余裕だろ。はい論破。

Function GetUsers()
　　Dim u
　　Set u = New Usersholder
　　Call A(u)
　　Set GetUsers = u.Users
End Function

Class Usersholder
　　Public Users As ADODB.Recordset
　　
　　Public Sub C(objConnection)
　　　　
　　End Sub
End Class

Sub B(ByVal objConnection As ADODB.connection)
　　On Error Resume Next
　　Call objProcessor.C(objConnection)
　　If Err.Number <> 0 Then
　　　　Debug.Print Err.Description
　　End If
End Sub