Protected Overrides Sub OnSetDefaultValues()

MyBase.OnSetDefaultValues()

'Get Reference To Primary Key Field Property

Dim LoPkField As Reflection.PropertyInfo = Me.GetType.GetProperty(Me.PrimaryKeyField)

'If the PK is a Guid Generate a Sequential GUID to prevent Index fragmentation

If LoPkField.PropertyType Is GetType(System.Guid) Then

LoPkField.SetValue(Me, BoCommon.NewSeqGuid, Nothing)

End If

End Sub