Public Shared Sub RegisterRoutes(ByVal routes As RouteCollection)
Dim model As New MetaModel
model.RegisterContext(GetType(AdventureWorksLTDataContext), _
New ContextConfiguration() With {.ScaffoldAllTables = True})
routes.Add(New DynamicDataRoute("{table}/{action}.aspx") With { _
.Constraints = New RouteValueDictionary(New With _
{.Action = "List|Details|Edit|Insert"}), _
.Model = model})
End Sub