Hola, en mi aplicacion tenemos una clase abstracta llamada infraccion la cual tiene 3 subclases por el momento (InfraccionBromatologia, infraccionTransito e infraccionObrasProvadas), las 3 subclases se almacenan en tablas distintas y sobrescriben el metrodo Insertar de la Base.

Actualmente para guardar en la BD una instancia de alguna subclase lo hago de esta forma:

Select Case Me.pInfraccion.pTipoInfraccion.pCodigo
Case 1 'Bromatologia
CType(Me.pInfraccion, InfraccionBromatologia).Insertar()
Case 2 'Transito
CType(Me.pInfraccion, InfraccionTransito).Insertar()
Case 3 'Obras Privadas
CType(Me.pInfraccion, InfraccionObraPrivada).Insertar()
End Select

Quisiera saber si hay alguna forma de realizarlo sin utilizar un select case, pense algo como CType(Me.pInfraccion, typeof Me.pInfraccion.pTipoInfraccion).Insertar() pero no funciona.