Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)

    ' Fires when the application is started

    Dim ClientObj As New ClientServices()

    Application.Add(ClientDb.CLIENT_DS_REF, ClientObj.GetAllClients())

End Sub