http://groups.google.com/group/elmah/t/accb494284d08b87

gistfile1.bas

Option Explicit On
Option Strict On

Imports System
Imports System.ComponentModel.Design
Imports Elmah

Module MainModule

    Class EnclosedServiceProviderQueryHandler

        Private ReadOnly _parent As ServiceProviderQueryHandler
        
        Private Sub New(parent As ServiceProviderQueryHandler)
            _parent = parent
        End Sub

        Private Function Query(context As Object) As IServiceProvider
            Dim container As New ServiceContainer(_parent(context))
            Dim log As New SqlErrorLog("...connection string...")
            container.AddService(GetType(ErrorLog), log)
            Return container
        End Function
        
        Public Shared Function Create(parent As ServiceProviderQueryHandler) As ServiceProviderQueryHandler
            Dim closure As New EnclosedServiceProviderQueryHandler(parent)
            Return New ServiceProviderQueryHandler(AddressOf closure.Query)
        End Function

    End Class
    
    Sub Main()

        ServiceCenter.Current = EnclosedServiceProviderQueryHandler.Create(ServiceCenter.Current)
        Dim log As ErrorLog : log = ErrorLog.GetDefault(Nothing)
        Console.WriteLine(log.Name)

    End Sub

End Module