>You could use Reflection. Simplified example:

Public Class BaseClass
>	Public Function DataEntry() As Boolean
>		Dim t As Type = Me.[GetType]()
>		Dim minfo As MethodInfo = t.GetMethod("InitializeWithRow", BindingFlags.Instance Or BindingFlags.[Public])
>		If minfo.DeclaringType.Name <> "BaseClass" AndAlso DoCheck() Then
>			Return InitializeWithRow()
>		End If
>		Return True
>	End Function
>
>	Public Overridable Function InitializeWithRow() As Boolean
>		Return True
>	End Function
>
>	Public Function DoCheck() As Boolean
>		'Decide whether to call InitializeWithRow()
>		Return True
>	End Function
>End Class

(Syntax not checked)

minfo.DeclaringType.Name will always be equal to the base class name. So, something has to be adjusted in there.