Private Sub ServiceCallsBD_InitializeSearchFields(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ServiceCallsBD.InitializeSearchFields With Me.ServiceCallsBD .SearchFields(bizServiceCalls.bizServiceCallsFieldNames.CallDateTime.ToString).InitialValue = Now.ToString .SearchFields(bizServiceCalls.bizServiceCallsFieldNames.Notes.ToString).InitialValue = "My nice note""" End WithEnd Sub