>>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.

Not so. If this is a derived class then DeclaringType.Name wil be the name of the derived class....